home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / octa209b.zip / octave-2.09 / PATOS2.ZIP / PATCHES.OS2 < prev    next >
Text File  |  1997-08-20  |  125KB  |  4,909 lines
  1. diff -cwr g:/project/C/octave-2.09.orig/liboctave/Array2-idx.h g:/project/C/octave-2.09/liboctave/Array2-idx.h
  2. *** g:/project/C/octave-2.09.orig/liboctave/Array2-idx.h    Wed Jun 25 14:59:30 1997
  3. --- g:/project/C/octave-2.09/liboctave/Array2-idx.h    Fri Aug  1 12:51:04 1997
  4. ***************
  5. *** 226,231 ****
  6. --- 226,233 ----
  7.       resize (0, 0);
  8.         else
  9.       {
  10. +       idx_j.sort (true);
  11. + 
  12.         int num_to_delete = idx_j.length (nc);
  13.   
  14.         if (num_to_delete != 0)
  15. ***************
  16. *** 288,293 ****
  17. --- 290,297 ----
  18.       resize (0, 0);
  19.         else
  20.       {
  21. +       idx_i.sort (true);
  22. + 
  23.         int num_to_delete = idx_i.length (nr);
  24.   
  25.         if (num_to_delete != 0)
  26. diff -cwr g:/project/C/octave-2.09.orig/liboctave/CMatrix.cc g:/project/C/octave-2.09/liboctave/CMatrix.cc
  27. *** g:/project/C/octave-2.09.orig/liboctave/CMatrix.cc    Wed May 28 03:39:20 1997
  28. --- g:/project/C/octave-2.09/liboctave/CMatrix.cc    Sun Jul 27 00:29:36 1997
  29. ***************
  30. *** 1425,1430 ****
  31. --- 1425,1432 ----
  32.         else
  33.       lwork = 2*n + (nrhs > m ? nrhs : m);
  34.   
  35. +       lwork *= 16;
  36. + 
  37.         Array<Complex> work (lwork);
  38.         Complex *pwork = work.fortran_vec ();
  39.   
  40. ***************
  41. *** 1504,1509 ****
  42. --- 1506,1513 ----
  43.       lwork = 2*m + (nrhs > n ? nrhs : n);
  44.         else
  45.       lwork = 2*n + (nrhs > m ? nrhs : m);
  46. + 
  47. +       lwork *= 16;
  48.   
  49.         Array<Complex> work (lwork);
  50.         Complex *pwork = work.fortran_vec ();
  51. diff -cwr g:/project/C/octave-2.09.orig/liboctave/cmd-hist.cc g:/project/C/octave-2.09/liboctave/cmd-hist.cc
  52. *** g:/project/C/octave-2.09.orig/liboctave/cmd-hist.cc    Wed May 28 03:35:52 1997
  53. --- g:/project/C/octave-2.09/liboctave/cmd-hist.cc    Fri Mar  7 04:38:20 1997
  54. ***************
  55. *** 20,25 ****
  56. --- 20,27 ----
  57.   
  58.   */
  59.   
  60. + /* Modified by Klaus Gebhardt */
  61. + 
  62.   #ifdef HAVE_CONFIG_H
  63.   #include <config.h>
  64.   #endif
  65. ***************
  66. *** 119,129 ****
  67.   {
  68.     if (! ignoring_entries ())
  69.       {
  70. !       if (s.empty ()
  71. !       || (s.length () == 1 && (s[0] == '\r' || s[0] == '\n')))
  72.       return;
  73.   
  74. !       ::add_history (s.c_str ());
  75.         lines_this_session++;
  76.       }
  77.   }
  78. --- 121,141 ----
  79.   {
  80.     if (! ignoring_entries ())
  81.       {
  82. !       if (s.empty () ||
  83. !       (s.length () == 1 && (s[0] == '\r' || s[0] == '\n' || s[0] == '')))
  84.       return;
  85.   
  86. !       string t = s;
  87. !       int l = t.length ();
  88. !       char c = t[l-2];
  89. !       if (c == '\n' || c == '\r' || c == '')
  90. !     {
  91. !       t.resize (l - 1);
  92. !       t[l-2] = '\n';
  93. !       if (l == 2)  return;
  94. !     }
  95. ! 
  96. !       ::add_history (t.c_str ());
  97.         lines_this_session++;
  98.       }
  99.   }
  100. diff -cwr g:/project/C/octave-2.09.orig/liboctave/dMatrix.cc g:/project/C/octave-2.09/liboctave/dMatrix.cc
  101. *** g:/project/C/octave-2.09.orig/liboctave/dMatrix.cc    Wed May 28 03:39:20 1997
  102. --- g:/project/C/octave-2.09/liboctave/dMatrix.cc    Sun Jul 27 00:30:36 1997
  103. ***************
  104. *** 1156,1161 ****
  105. --- 1156,1163 ----
  106.                  ? (2*n > m ? 2*n : m)
  107.                  : (nrhs > m ? nrhs : m));
  108.   
  109. +       lwork *= 16;
  110. + 
  111.         Array<double> work (lwork);
  112.         double *pwork = work.fortran_vec ();
  113.   
  114. ***************
  115. *** 1256,1261 ****
  116. --- 1258,1265 ----
  117.       lwork = 3*n + (2*n > nrhs
  118.                  ? (2*n > m ? 2*n : m)
  119.                  : (nrhs > m ? nrhs : m));
  120. + 
  121. +       lwork *= 16;
  122.   
  123.         Array<double> work (lwork);
  124.         double *pwork = work.fortran_vec ();
  125. diff -cwr g:/project/C/octave-2.09.orig/liboctave/file-ops.cc g:/project/C/octave-2.09/liboctave/file-ops.cc
  126. *** g:/project/C/octave-2.09.orig/liboctave/file-ops.cc    Wed May 28 03:35:54 1997
  127. --- g:/project/C/octave-2.09/liboctave/file-ops.cc    Wed Aug 20 16:27:52 1997
  128. ***************
  129. *** 20,25 ****
  130. --- 20,27 ----
  131.   
  132.   */
  133.   
  134. + /* Modified by Klaus Gebhardt, 1996 */
  135. + 
  136.   #ifdef HAVE_CONFIG_H
  137.   #include <config.h>
  138.   #endif
  139. ***************
  140. *** 36,42 ****
  141.   #include <unistd.h>
  142.   #endif
  143.   
  144. ! #include "error.h"
  145.   #include "file-ops.h"
  146.   #include "lo-error.h"
  147.   #include "statdefs.h"
  148. --- 38,47 ----
  149.   #include <unistd.h>
  150.   #endif
  151.   
  152. ! #ifdef __EMX__
  153. ! #include <mkfifo.h>
  154. ! #endif
  155. ! 
  156.   #include "file-ops.h"
  157.   #include "lo-error.h"
  158.   #include "statdefs.h"
  159. ***************
  160. *** 256,267 ****
  161.   int
  162.   oct_mkfifo (const string& name, mode_t mode)
  163.   {
  164. ! #if defined (HAVE_MKFIFO)
  165. !   return mkfifo (name.c_str (), mode);
  166. ! #else
  167. !   ::error ("mkfifo: not implemented on this system");
  168. !   return -1;
  169. ! #endif
  170.   }
  171.   
  172.   int
  173. --- 261,268 ----
  174.   int
  175.   oct_mkfifo (const string& name, mode_t mode)
  176.   {
  177. !   string msg;
  178. !   return oct_mkfifo (name, mode, msg);
  179.   }
  180.   
  181.   int
  182. ***************
  183. *** 277,283 ****
  184.   
  185.     return status;
  186.   #else
  187. !   ::error ("mkfifo: not implemented on this system");
  188.     return -1;
  189.   #endif
  190.   }
  191. --- 278,284 ----
  192.   
  193.     return status;
  194.   #else
  195. !   msg = "mkfifo: not implemented on this system";
  196.     return -1;
  197.   #endif
  198.   }
  199. diff -cwr g:/project/C/octave-2.09.orig/liboctave/idx-vector.cc g:/project/C/octave-2.09/liboctave/idx-vector.cc
  200. *** g:/project/C/octave-2.09.orig/liboctave/idx-vector.cc    Wed May 28 03:39:22 1997
  201. --- g:/project/C/octave-2.09/liboctave/idx-vector.cc    Fri Aug  1 12:46:00 1997
  202. ***************
  203. *** 487,492 ****
  204. --- 487,501 ----
  205.       }
  206.   
  207.     return colon_equiv;
  208. + }
  209. + 
  210. + void
  211. + IDX_VEC_REP::sort (bool uniq)
  212. + {
  213. +   sort_data (data, len);
  214. + 
  215. +   if (uniq)
  216. +     len = make_uniq (data, len);
  217.   }
  218.   
  219.   void
  220. diff -cwr g:/project/C/octave-2.09.orig/liboctave/idx-vector.h g:/project/C/octave-2.09/liboctave/idx-vector.h
  221. *** g:/project/C/octave-2.09.orig/liboctave/idx-vector.h    Wed May 28 03:39:22 1997
  222. --- g:/project/C/octave-2.09/liboctave/idx-vector.h    Fri Aug  1 12:49:00 1997
  223. ***************
  224. *** 94,99 ****
  225. --- 94,101 ----
  226.       int is_colon (void) const { return colon; }
  227.       int is_colon_equiv (int n, int sort_uniq);
  228.   
  229. +     void sort (bool uniq);
  230. + 
  231.       int orig_rows (void) const { return orig_nr; }
  232.       int orig_columns (void) const { return orig_nc; }
  233.   
  234. ***************
  235. *** 213,218 ****
  236. --- 215,222 ----
  237.     int is_colon (void) const { return rep->is_colon (); }
  238.     int is_colon_equiv (int n, int sort_uniq = 0) const
  239.       { return rep->is_colon_equiv (n, sort_uniq); }
  240. + 
  241. +   void sort (bool uniq = false) { rep->sort (uniq); }
  242.   
  243.     int orig_rows (void) const { return rep->orig_rows (); }
  244.     int orig_columns (void) const { return rep->orig_columns (); }
  245. diff -cwr g:/project/C/octave-2.09.orig/liboctave/lo-mappers.cc g:/project/C/octave-2.09/liboctave/lo-mappers.cc
  246. *** g:/project/C/octave-2.09.orig/liboctave/lo-mappers.cc    Thu Jul 10 15:57:20 1997
  247. --- g:/project/C/octave-2.09/liboctave/lo-mappers.cc    Thu Jul 10 16:19:22 1997
  248. ***************
  249. *** 20,25 ****
  250. --- 20,27 ----
  251.   
  252.   */
  253.   
  254. + /* Modified by Klaus Gebhardt, 1997 */
  255. + 
  256.   #ifdef HAVE_CONFIG_H
  257.   #include <config.h>
  258.   #endif
  259. ***************
  260. *** 42,49 ****
  261.   
  262.   extern "C"
  263.   {
  264. !   int F77_FCN (xdgamma, XDGAMMA) (const double&, double&);
  265. ! 
  266.     int F77_FCN (dlgams, DLGAMS) (const double&, double&, double&);
  267.   }
  268.   
  269. --- 44,52 ----
  270.   
  271.   extern "C"
  272.   {
  273. !   double F77_FCN (derf, DERF) (const double&);
  274. !   double F77_FCN (derfc, DERFC) (const double&);
  275. !   double F77_FCN (dgamma, DGAMMA) (const double&);
  276.     int F77_FCN (dlgams, DLGAMS) (const double&, double&, double&);
  277.   }
  278.   
  279. ***************
  280. *** 130,137 ****
  281.   #if defined (HAVE_ERF)
  282.     return erf (x);
  283.   #else
  284. !   (*current_liboctave_error_handler)
  285. !     ("erf (x) not available on this system");
  286.   #endif
  287.   }
  288.   
  289. --- 133,141 ----
  290.   #if defined (HAVE_ERF)
  291.     return erf (x);
  292.   #else
  293. !   double y;
  294. !   F77_YXFCN (derf, DERF, y, (x));
  295. !   return y;
  296.   #endif
  297.   }
  298.   
  299. ***************
  300. *** 141,148 ****
  301.   #if defined (HAVE_ERFC)
  302.     return erfc (x);
  303.   #else
  304. !   (*current_liboctave_error_handler)
  305. !     ("erfc (x) not available on this system");
  306.   #endif
  307.   }
  308.   
  309. --- 145,153 ----
  310.   #if defined (HAVE_ERFC)
  311.     return erfc (x);
  312.   #else
  313. !   double y;
  314. !   F77_YXFCN (derfc, DERFC, y, (x));
  315. !   return y;
  316.   #endif
  317.   }
  318.   
  319. ***************
  320. *** 171,181 ****
  321.   double
  322.   xgamma (double x)
  323.   {
  324. !   double result;
  325. ! 
  326. !   F77_XFCN (xdgamma, XDGAMMA, (x, result));
  327. ! 
  328. !   return result;
  329.   }
  330.   
  331.   double
  332. --- 176,184 ----
  333.   double
  334.   xgamma (double x)
  335.   {
  336. !   double y;
  337. !   F77_YXFCN (dgamma, DGAMMA, y, (x));
  338. !   return y;
  339.   }
  340.   
  341.   double
  342. ***************
  343. *** 196,202 ****
  344.     double result;
  345.     double sgngam;
  346.   
  347. !   F77_XFCN (dlgams, DLGAMS, (x, result, sgngam));
  348.   
  349.     return result;
  350.   }
  351. --- 199,205 ----
  352.     double result;
  353.     double sgngam;
  354.   
  355. !   F77_FCN (dlgams, DLGAMS) (x, result, sgngam);
  356.   
  357.     return result;
  358.   }
  359. diff -cwr g:/project/C/octave-2.09.orig/liboctave/lo-mappers.h g:/project/C/octave-2.09/liboctave/lo-mappers.h
  360. *** g:/project/C/octave-2.09.orig/liboctave/lo-mappers.h    Wed Jun 25 16:19:20 1997
  361. --- g:/project/C/octave-2.09/liboctave/lo-mappers.h    Wed Jun 25 16:19:08 1997
  362. ***************
  363. *** 20,29 ****
  364. --- 20,33 ----
  365.   
  366.   */
  367.   
  368. + /* Modified by Klaus Gebhardt, 1997 */
  369. + 
  370.   #if !defined (octave_liboctave_mappers_h)
  371.   #define octave_liboctave_mappers_h 1
  372.   
  373.   #include "oct-cmplx.h"
  374. + #include "oct-math.h"
  375. + #include "lo-ieee.h"
  376.   
  377.   extern double arg (double x);
  378.   extern double conj (double x);
  379. diff -cwr g:/project/C/octave-2.09.orig/libcruft/blas/xerbla.f g:/project/C/octave-2.09/libcruft/blas/xerbla.f
  380. *** g:/project/C/octave-2.09.orig/libcruft/blas/xerbla.f    Wed May 28 03:33:48 1997
  381. --- g:/project/C/octave-2.09/libcruft/blas/xerbla.f    Mon May 26 20:26:38 1997
  382. ***************
  383. *** 33,39 ****
  384.   *
  385.         WRITE( *, FMT = 9999 )SRNAME, INFO
  386.   *
  387. !       STOP
  388.   *
  389.    9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',
  390.        $      'an illegal value' )
  391. --- 33,39 ----
  392.   *
  393.         WRITE( *, FMT = 9999 )SRNAME, INFO
  394.   *
  395. !       CALL XSTOPX (' ')
  396.   *
  397.    9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',
  398.        $      'an illegal value' )
  399. diff -cwr g:/project/C/octave-2.09.orig/libcruft/misc/d1mach.f g:/project/C/octave-2.09/libcruft/misc/d1mach.f
  400. *** g:/project/C/octave-2.09.orig/libcruft/misc/d1mach.f    Wed May 28 03:33:48 1997
  401. --- g:/project/C/octave-2.09/libcruft/misc/d1mach.f    Wed Aug 20 17:48:28 1997
  402. ***************
  403. *** 1,13 ****
  404.         double precision function d1mach (i)
  405.         integer i
  406. !       logical init
  407.         double precision dmach(5)
  408. !       save init, dmach
  409. !       data init /.false./
  410. !       if (.not. init) then
  411. !         call machar (dmach(1), dmach(2), dmach(3), dmach(4), dmach(5))
  412. !         init = .true.
  413. !       endif
  414.         if (i .lt. 1  .or.  i .gt. 5) goto 999
  415.         d1mach = dmach(i)
  416.         return
  417. --- 1,22 ----
  418. + * d1mach.f  Do not edit.  Generated automatically by gen-d1mach.c
  419.         double precision function d1mach(i)
  420.         integer i
  421. !       integer i1var (2)
  422. !       integer i2var (2)
  423. !       integer i3var (2)
  424. !       integer i4var (2)
  425. !       integer i5var (2)
  426.         double precision dmach(5)
  427. !       equivalence (dmach(1), i1var(1))
  428. !       equivalence (dmach(2), i2var(1))
  429. !       equivalence (dmach(3), i3var(1))
  430. !       equivalence (dmach(4), i4var(1))
  431. !       equivalence (dmach(5), i5var(1))
  432. !       data i1var(1), i1var(2) / 0 , 1048576 /
  433. !       data i2var(1), i2var(2) / -1 , 2146435071 /
  434. !       data i3var(1), i3var(2) / 0 , 1017118720 /
  435. !       data i4var(1), i4var(2) / 0 , 1018167296 /
  436. !       data i5var(1), i5var(2) / 1352628735 , 1070810131 /
  437.         if (i .lt. 1  .or.  i .gt. 5) goto 999
  438.         d1mach = dmach(i)
  439.         return
  440. diff -cwr g:/project/C/octave-2.09.orig/libcruft/misc/dostop.c g:/project/C/octave-2.09/libcruft/misc/dostop.c
  441. *** g:/project/C/octave-2.09.orig/libcruft/misc/dostop.c    Sat Feb  3 15:33:40 1996
  442. --- g:/project/C/octave-2.09/libcruft/misc/dostop.c    Sat Feb  8 15:11:04 1997
  443. ***************
  444. *** 21,26 ****
  445. --- 21,28 ----
  446.   
  447.   */
  448.   
  449. + /* Modified by Klaus Gebhardt, 1996 */
  450. + 
  451.   #ifdef HAVE_CONFIG_H
  452.   #include <config.h>
  453.   #endif
  454. ***************
  455. *** 30,35 ****
  456. --- 32,42 ----
  457.   
  458.   #include "f77-fcn.h"
  459.   #include "lo-error.h"
  460. + 
  461. + #ifdef __EMX__
  462. + int f77_exception_encountered;
  463. + jmp_buf f77_context;
  464. + #endif
  465.   
  466.   /* All the STOP statements in the Fortran routines have been replaced
  467.      with a call to XSTOPX, defined in the file libcruft/misc/xstopx.f.
  468. diff -cwr g:/project/C/octave-2.09.orig/libcruft/misc/f77-fcn.h g:/project/C/octave-2.09/libcruft/misc/f77-fcn.h
  469. *** g:/project/C/octave-2.09.orig/libcruft/misc/f77-fcn.h    Sun Mar  3 02:16:14 1996
  470. --- g:/project/C/octave-2.09/libcruft/misc/f77-fcn.h    Sat Feb  8 15:41:26 1997
  471. ***************
  472. *** 20,25 ****
  473. --- 20,27 ----
  474.   
  475.   */
  476.   
  477. + /* Modified by Klaus Gebhardt, 1997 */
  478. + 
  479.   #if !defined (octave_f77_fcn_h)
  480.   #define octave_f77_fcn_h 1
  481.   
  482. ***************
  483. *** 77,82 ****
  484. --- 79,103 ----
  485.       } \
  486.         else \
  487.       F77_FCN (f, F) args; \
  488. +       copy_f77_context ((char *) saved_f77_context, (char *) f77_context, \
  489. +             sizeof (jmp_buf)); \
  490. +     } \
  491. +   while (0)
  492. + 
  493. + #define F77_YXFCN(f, F, rc, args) \
  494. +   do \
  495. +     { \
  496. +       jmp_buf saved_f77_context; \
  497. +       f77_exception_encountered = 0; \
  498. +       copy_f77_context ((char *) f77_context, (char *) saved_f77_context, \
  499. +             sizeof (jmp_buf)); \
  500. +       if (setjmp (f77_context)) \
  501. +     { \
  502. +       f77_exception_encountered = 1; \
  503. +       F77_XFCN_ERROR (f, F); \
  504. +     } \
  505. +       else \
  506. +     rc = F77_FCN (f, F) args; \
  507.         copy_f77_context ((char *) saved_f77_context, (char *) f77_context, \
  508.               sizeof (jmp_buf)); \
  509.       } \
  510. diff -cwr g:/project/C/octave-2.09.orig/src/defaults.cc g:/project/C/octave-2.09/src/defaults.cc
  511. *** g:/project/C/octave-2.09.orig/src/defaults.cc    Thu Jul 10 15:57:22 1997
  512. --- g:/project/C/octave-2.09/src/defaults.cc    Wed Aug 13 14:55:10 1997
  513. ***************
  514. *** 28,33 ****
  515. --- 28,35 ----
  516.   
  517.   */
  518.   
  519. + /* Modified by Klaus Gebhardt, 1996 - 1997 */
  520. + 
  521.   #ifdef HAVE_CONFIG_H
  522.   #include <config.h>
  523.   #endif
  524. ***************
  525. *** 160,166 ****
  526.   
  527.         if (shell_path)
  528.       {
  529. !       Vexec_path = string (":");
  530.         Vexec_path.append (shell_path);
  531.       }
  532.       }
  533. --- 162,168 ----
  534.   
  535.         if (shell_path)
  536.       {
  537. !       Vexec_path = string (SEPCHAR_STR);
  538.         Vexec_path.append (shell_path);
  539.       }
  540.       }
  541. ***************
  542. *** 200,214 ****
  543. --- 202,224 ----
  544.       Vinfo_prog = string (oct_info_prog);
  545.     else
  546.       {
  547. + #if !defined (__EMX__)
  548.         Vinfo_prog = Varch_lib_dir;
  549.         Vinfo_prog.append ("/info");
  550. + #else
  551. +       Vinfo_prog = "";
  552. + #endif
  553.       }
  554.   }
  555.   
  556.   static void
  557.   set_default_editor (void)
  558.   {
  559. + #if defined (__EMX__) && defined (OS2)
  560. +   Veditor = "e";
  561. + #else
  562.     Veditor = "emacs";
  563. + #endif
  564.   
  565.     char *env_editor = getenv ("EDITOR");
  566.   
  567. ***************
  568. *** 338,345 ****
  569.   
  570.         if (eplen > 0)
  571.       {
  572. !       int prepend = (Vexec_path[0] == ':');
  573. !       int append = (eplen > 1 && Vexec_path[eplen-1] == ':');
  574.   
  575.         if (prepend)
  576.           {
  577. --- 348,355 ----
  578.   
  579.         if (eplen > 0)
  580.       {
  581. !       int prepend = (Vexec_path[0] == SEPCHAR);
  582. !       int append = (eplen > 1 && Vexec_path[eplen-1] == SEPCHAR);
  583.   
  584.         if (prepend)
  585.           {
  586. diff -cwr g:/project/C/octave-2.09.orig/src/file-io.cc g:/project/C/octave-2.09/src/file-io.cc
  587. *** g:/project/C/octave-2.09.orig/src/file-io.cc    Wed May 28 03:39:28 1997
  588. --- g:/project/C/octave-2.09/src/file-io.cc    Wed May 28 03:03:18 1997
  589. ***************
  590. *** 34,39 ****
  591. --- 34,41 ----
  592.   // Completely rewritten by John W. Eaton <jwe@bevo.che.wisc.edu>,
  593.   // April 1996.
  594.   
  595. + /* Modified by Klaus Gebhardt, 1997 */
  596. + 
  597.   #ifdef HAVE_CONFIG_H
  598.   #include <config.h>
  599.   #endif
  600. ***************
  601. *** 62,67 ****
  602. --- 64,70 ----
  603.   #include "oct-stream.h"
  604.   #include "oct-strstrm.h"
  605.   #include "pager.h"
  606. + #include "sighandlers.h"
  607.   #include "sysdep.h"
  608.   #include "utils.h"
  609.   #include "variables.h"
  610. ***************
  611. *** 1282,1287 ****
  612. --- 1285,1325 ----
  613.   }
  614.   
  615.   DEFALIAS (octave_tmp_file_name, tmpnam);
  616. + 
  617. + DEFUN (child_purge_temp, args, ,
  618. +  "child_purge_temp (pid, name)\n\
  619. + Remove the file NAME, when child PID dies.")
  620. + {
  621. +   octave_value retval = -1.0;
  622. + 
  623. +   if (args.length () == 2)
  624. +     {
  625. +       if (args(1).is_string ())
  626. +     {
  627. +       double d_pid = args(0).double_value ();
  628. +       string name  = args(1).string_value ();
  629. + 
  630. +       if (!error_state)
  631. +         {
  632. +           if (D_NINT (d_pid) == d_pid)
  633. +         {
  634. +           int i_pid = NINT (d_pid);
  635. + 
  636. +           octave_child_list::insert (i_pid, 0, name);
  637. +           retval = 0.0;
  638. +         }
  639. +           else
  640. +         error ("child_purge_temp: pid must be an integer");
  641. +         }
  642. +     }
  643. +       else
  644. +     error ("child_purge_temp: second argument must be a string");
  645. +     }
  646. +   else
  647. +     print_usage ("child_purge_temp");
  648. + 
  649. +   return retval;
  650. + }
  651.   
  652.   static int
  653.   convert (int x, int ibase, int obase)
  654. diff -cwr g:/project/C/octave-2.09.orig/src/help.cc g:/project/C/octave-2.09/src/help.cc
  655. *** g:/project/C/octave-2.09.orig/src/help.cc    Wed May 28 03:36:46 1997
  656. --- g:/project/C/octave-2.09/src/help.cc    Thu Aug 14 17:06:18 1997
  657. ***************
  658. *** 20,25 ****
  659. --- 20,27 ----
  660.   
  661.   */
  662.   
  663. + /* Modified by Klaus Gebhardt, 1996 */
  664. + 
  665.   #ifdef HAVE_CONFIG_H
  666.   #include <config.h>
  667.   #endif
  668. ***************
  669. *** 65,70 ****
  670. --- 67,87 ----
  671.   #include "utils.h"
  672.   #include "variables.h"
  673.   
  674. + #if defined (__EMX__)
  675. + extern "C"
  676. + {
  677. + #include "info/info.h"
  678. + #include "info/dribble.h"
  679. + #include "info/terminal.h"
  680. + 
  681. +   extern int external_info_search ();
  682. +   extern int index_entry_exists ();
  683. +   extern int do_info_index_search ();
  684. +   extern void finish_info_session ();
  685. +   extern char *replace_in_documentation ();
  686. + }
  687. + #endif
  688. + 
  689.   // Name of the info file specified on command line.
  690.   // (--info-file file)
  691.   string Vinfo_file;
  692. ***************
  693. *** 526,531 ****
  694. --- 543,550 ----
  695.   static int
  696.   try_info (const string& nm)
  697.   {
  698. +   if (Vinfo_prog.length () > 0)
  699. +     {
  700.         int status = 0;
  701.   
  702.         static char *cmd_str = 0;
  703. ***************
  704. *** 567,578 ****
  705.   
  706.     return status;
  707.   }
  708.   
  709.   static void
  710.   help_from_info (const string_vector& argv, int idx, int argc)
  711.   {
  712.     if (idx == argc)
  713. !     try_info (string ());
  714.     else
  715.       {
  716.         for (int i = idx; i < argc; i++)
  717. --- 586,662 ----
  718.   
  719.         return status;
  720.       }
  721. +   else
  722. +     {
  723. +       volatile octave_interrupt_handler old_interrupt_handler
  724. +     = octave_ignore_interrupts ();
  725. + 
  726. +       int status = 0;
  727. + 
  728. +       char *directory_name = strdup (Vinfo_file.c_str ());
  729. +       char *temp = filename_non_directory (directory_name);
  730. + 
  731. +       if (temp != directory_name)
  732. +     {
  733. +       *temp = 0;
  734. +       info_add_path (directory_name, INFOPATH_PREPEND);
  735. +     }
  736. + 
  737. +       delete [] directory_name;
  738. + 
  739. +       NODE *initial_node = info_get_node (Vinfo_file.c_str (), 0);
  740. + 
  741. +       if (! initial_node)  status = 127;
  742. +       else
  743. +     {
  744. +       status = external_info_search(initial_node, 0,
  745. +                     Vinfo_file.c_str (), nm.c_str ());
  746. +       if (status == 1)
  747. +         {
  748. +           char *format = replace_in_documentation
  749. +         ("Type \"\\[quit]\" to quit, \"\\[get-help-window]\" for help.");
  750. +           window_message_in_echo_area (format);
  751. + 
  752. +           info_read_and_dispatch ();
  753. + 
  754. + #ifdef __EMX__
  755. +           terminal_goto_xy (0, screenheight - 2);
  756. + #else
  757. +           terminal_goto_xy (0, screenheight - 1);
  758. + #endif
  759. +           terminal_clear_to_eol ();
  760. +           terminal_unprep_terminal ();
  761. +         }
  762. + 
  763. +       status = status * status - 1;
  764. + 
  765. +       finish_info_session (initial_node, 0);
  766. +     }
  767. + 
  768. +       octave_set_interrupt_handler (old_interrupt_handler);
  769. + 
  770. +       return status;
  771. +     }
  772. + }
  773.   
  774.   static void
  775.   help_from_info (const string_vector& argv, int idx, int argc)
  776.   {
  777.     if (idx == argc)
  778. !     {
  779. !       int status = try_info (string ());
  780. ! 
  781. !       if (status)
  782. !     {
  783. !       if (status < 0)
  784. !         {
  785. !           message ("help", "sorry, `%s' is not indexed in the manual",
  786. !                string ().c_str ());
  787. !           sleep (2);
  788. !         }
  789. !       else  error ("help: unable to find info!");
  790. !     }
  791. !     }
  792.     else
  793.       {
  794.         for (int i = idx; i < argc; i++)
  795. ***************
  796. *** 983,988 ****
  797. --- 1067,1073 ----
  798.   
  799.     string s = builtin_string_variable ("INFO_PROGRAM");
  800.   
  801. + #ifndef __EMX__
  802.     if (s.empty ())
  803.       {
  804.         gripe_invalid_value_specified ("INFO_PROGRAM");
  805. ***************
  806. *** 990,995 ****
  807. --- 1075,1083 ----
  808.       }
  809.     else
  810.       Vinfo_prog = s;
  811. + #else
  812. +   Vinfo_prog = s;
  813. + #endif
  814.   
  815.     return status;
  816.   }
  817. diff -cwr g:/project/C/octave-2.09.orig/src/input.cc g:/project/C/octave-2.09/src/input.cc
  818. *** g:/project/C/octave-2.09.orig/src/input.cc    Wed May 28 03:39:28 1997
  819. --- g:/project/C/octave-2.09/src/input.cc    Wed May 28 04:14:42 1997
  820. ***************
  821. *** 30,35 ****
  822. --- 30,37 ----
  823.   
  824.   */
  825.   
  826. + /* Modified by Klaus Gebhardt, 1996 */
  827. + 
  828.   // Use the GNU readline library for command line editing and hisory.
  829.   
  830.   #ifdef HAVE_CONFIG_H
  831. ***************
  832. *** 120,125 ****
  833. --- 122,131 ----
  834.   // Nonzero means the user forced this shell to be interactive (-i).
  835.   int forced_interactive = 0;
  836.   
  837. + // Nonzero means the user forced this shell to be really interactive (-i),
  838. + // but without using the pager.
  839. + int really_forced_interactive = 0;
  840. + 
  841.   // Should we issue a prompt?
  842.   int promptflag = 1;
  843.   
  844. ***************
  845. *** 429,435 ****
  846.       }
  847.     else
  848.       {
  849. !       if (s && *s && (interactive || forced_interactive))
  850.       {
  851.         fprintf (rl_outstream, s);
  852.         fflush (rl_outstream);
  853. --- 435,442 ----
  854.       }
  855.     else
  856.       {
  857. !       if (s && *s &&
  858. !       (interactive || forced_interactive || really_forced_interactive))
  859.       {
  860.         fprintf (rl_outstream, s);
  861.         fflush (rl_outstream);
  862. ***************
  863. *** 494,500 ****
  864.   {
  865.     char *retval = 0;
  866.   
  867. !   if ((interactive || forced_interactive)
  868.         && (! (reading_fcn_file || reading_script_file)))
  869.       {
  870.         const char *ps = (promptflag > 0) ? Vps1.c_str () :
  871. --- 501,507 ----
  872.   {
  873.     char *retval = 0;
  874.   
  875. !   if ((interactive || forced_interactive || really_forced_interactive)
  876.         && (! (reading_fcn_file || reading_script_file)))
  877.       {
  878.         const char *ps = (promptflag > 0) ? Vps1.c_str () :
  879. ***************
  880. *** 637,643 ****
  881.     FILE *instream = 0;
  882.   
  883.     if (name.length () > 0)
  884. !     instream = fopen (name.c_str (), "r");
  885.   
  886.     if (! instream && warn)
  887.       warning ("%s: no such file or directory", name.c_str ());
  888. --- 644,650 ----
  889.     FILE *instream = 0;
  890.   
  891.     if (name.length () > 0)
  892. !     instream = fopen (name.c_str (), "rb");
  893.   
  894.     if (! instream && warn)
  895.       warning ("%s: no such file or directory", name.c_str ());
  896. diff -cwr g:/project/C/octave-2.09.orig/src/input.h g:/project/C/octave-2.09/src/input.h
  897. *** g:/project/C/octave-2.09.orig/src/input.h    Sun Jun 23 04:45:44 1996
  898. --- g:/project/C/octave-2.09/src/input.h    Wed Dec 11 05:26:08 1996
  899. ***************
  900. *** 20,25 ****
  901. --- 20,27 ----
  902.   
  903.   */
  904.   
  905. + /* Modified by Klaus Gebhardt, 1996 */
  906. + 
  907.   // Use the GNU readline library for command line editing and hisory.
  908.   
  909.   #if !defined (octave_input_h)
  910. ***************
  911. *** 60,65 ****
  912. --- 62,71 ----
  913.   
  914.   // Nonzero means the user forced this shell to be interactive (-i).
  915.   extern int forced_interactive;
  916. + 
  917. + // Nonzero means the user forced this shell to be really interactive (-i),
  918. + // but without using the pager.
  919. + extern int really_forced_interactive;
  920.   
  921.   // Should we issue a prompt?
  922.   extern int promptflag;
  923. diff -cwr g:/project/C/octave-2.09.orig/src/lex.l g:/project/C/octave-2.09/src/lex.l
  924. *** g:/project/C/octave-2.09.orig/src/lex.l    Wed May 28 03:39:28 1997
  925. --- g:/project/C/octave-2.09/src/lex.l    Mon May 26 19:10:56 1997
  926. ***************
  927. *** 20,25 ****
  928. --- 20,27 ----
  929.   
  930.   */
  931.   
  932. + /* Modified by Klaus Gebhardt, 1996 */
  933. + 
  934.   %s TEXT_FCN
  935.   %s MATRIX
  936.   
  937. ***************
  938. *** 191,197 ****
  939.   
  940.   D    [0-9]
  941.   S    [ \t]
  942. ! NL    ((\n)|(\r\n))
  943.   SNL    ({S}|{NL})
  944.   EL    (\.\.\.)
  945.   BS    (\\)
  946. --- 193,199 ----
  947.   
  948.   D    [0-9]
  949.   S    [ \t]
  950. ! NL    ((\n)|(\r)|(\r\n)|())
  951.   SNL    ({S}|{NL})
  952.   EL    (\.\.\.)
  953.   BS    (\\)
  954. ***************
  955. *** 244,250 ****
  956.       return handle_string (yytext[0], 1);
  957.     }
  958.   
  959. ! <TEXT_FCN>[^ \t\n\;\,]*{S}* {
  960.       string tok = strip_trailing_whitespace (yytext);
  961.       TOK_PUSH_AND_RETURN (tok, TEXT);
  962.     }
  963. --- 246,252 ----
  964.       return handle_string (yytext[0], 1);
  965.     }
  966.   
  967. ! <TEXT_FCN>[^ \t\r\n\;\,]*{S}* {
  968.       string tok = strip_trailing_whitespace (yytext);
  969.       TOK_PUSH_AND_RETURN (tok, TEXT);
  970.     }
  971. ***************
  972. *** 540,546 ****
  973.       else
  974.         {
  975.       int c;
  976. !     while ((c = yyinput ()) != EOF && c != '\n')
  977.         ; // Eat comment.
  978.         }
  979.   
  980. --- 542,548 ----
  981.       else
  982.         {
  983.       int c;
  984. !     while ((c = yyinput ()) != EOF && c != '\n' && c != '\r' && c != '')
  985.         ; // Eat comment.
  986.         }
  987.   
  988. ***************
  989. *** 690,696 ****
  990.   
  991.     // Only ask for input from stdin if we are expecting interactive
  992.     // input.
  993. !   if (interactive && ! (reading_fcn_file || get_input_from_eval_string))
  994.       yyrestart (stdin);
  995.   
  996.     // Clear the buffer for help text.
  997. --- 692,699 ----
  998.   
  999.     // Only ask for input from stdin if we are expecting interactive
  1000.     // input.
  1001. !   if ((interactive || really_forced_interactive) &&
  1002. !       ! (reading_fcn_file || get_input_from_eval_string))
  1003.       yyrestart (stdin);
  1004.   
  1005.     // Clear the buffer for help text.
  1006. ***************
  1007. *** 781,787 ****
  1008.     char c;
  1009.     while ((c = *s++) != '\0')
  1010.       {
  1011. !       if (c == '\n')
  1012.         current_input_column = 1;
  1013.         else
  1014.       current_input_column++;
  1015. --- 784,790 ----
  1016.     char c;
  1017.     while ((c = *s++) != '\0')
  1018.       {
  1019. !       if (c == '\n' || c == '\r' || c == '')
  1020.         current_input_column = 1;
  1021.         else
  1022.       current_input_column++;
  1023. ***************
  1024. *** 1111,1117 ****
  1025.   
  1026.     bool begin_comment = true;
  1027.     bool in_comment = true;
  1028. !   int c = 0;
  1029.   
  1030.     while ((c = yyinput ()) != EOF)
  1031.       {
  1032. --- 1114,1120 ----
  1033.   
  1034.     bool begin_comment = true;
  1035.     bool in_comment = true;
  1036. !   int c = 0, d, ct;
  1037.   
  1038.     while ((c = yyinput ()) != EOF)
  1039.       {
  1040. ***************
  1041. *** 1125,1136 ****
  1042.   
  1043.         if (in_comment)
  1044.       {
  1045. !       help_buf += (char) c;
  1046.   
  1047. -       if (c == '\n')
  1048.           in_comment = false;
  1049.       }
  1050.         else
  1051.       {
  1052.         switch (c)
  1053.           {
  1054. --- 1128,1157 ----
  1055.   
  1056.         if (in_comment)
  1057.       {
  1058. !       if (c == '\n' || c == '\r' || c == '')
  1059. !         {
  1060. !           ct = 0;
  1061. !           d  = c;
  1062. ! 
  1063. !           do
  1064. !         {
  1065. !           if (d == '\n' || d == '')
  1066. !             {
  1067. !               if (++ct > 1)  break;
  1068. !               help_buf += (char) '\n';
  1069. !             }
  1070. !         }
  1071. !           while (((d = yyinput ()) != EOF) &&
  1072. !              (d == '\n' || d == '\r' || d == ''));
  1073. ! 
  1074. !           if (d != EOF)  yyunput (d, yytext);
  1075.   
  1076.             in_comment = false;
  1077.           }
  1078.         else
  1079. +         help_buf += (char) c;
  1080. +     }
  1081. +       else
  1082.       {
  1083.         switch (c)
  1084.           {
  1085. ***************
  1086. *** 1317,1322 ****
  1087. --- 1338,1345 ----
  1088.         retval |= ATE_SPACE_OR_TAB;
  1089.         break;
  1090.   
  1091. +     case '':
  1092. +     case '\r':
  1093.       case '\n':
  1094.         retval |= ATE_NEWLINE;
  1095.         in_comment = 0;
  1096. ***************
  1097. *** 1434,1439 ****
  1098. --- 1457,1464 ----
  1099.           goto cleanup;
  1100.         break;
  1101.   
  1102. +     case '':
  1103. +     case '\r':
  1104.       case '\n':
  1105.         current_input_column = 0;
  1106.         promptflag--;
  1107. ***************
  1108. *** 1542,1548 ****
  1109.         if (! have_ellipsis_continuation (0))
  1110.           buf << (char) c;
  1111.       }
  1112. !       else if (c == '\n')
  1113.       {
  1114.         error ("unterminated string constant");
  1115.         break;
  1116. --- 1567,1573 ----
  1117.         if (! have_ellipsis_continuation (0))
  1118.           buf << (char) c;
  1119.       }
  1120. !       else if (c == '\n' || c == '\r' || c == '')
  1121.       {
  1122.         error ("unterminated string constant");
  1123.         break;
  1124. ***************
  1125. *** 1640,1646 ****
  1126.         int postfix_un_op = next_token_is_postfix_unary_op
  1127.           (spc_gobbled, yytext);
  1128.   
  1129. !       int other_op = match_any (c1, ",;\n]");
  1130.   
  1131.         if (! (postfix_un_op || bin_op || other_op)
  1132.             && nesting_level.is_brace ()
  1133. --- 1665,1671 ----
  1134.         int postfix_un_op = next_token_is_postfix_unary_op
  1135.           (spc_gobbled, yytext);
  1136.   
  1137. !       int other_op = match_any (c1, ",;\n\r]");
  1138.   
  1139.         if (! (postfix_un_op || bin_op || other_op)
  1140.             && nesting_level.is_brace ()
  1141. ***************
  1142. *** 1673,1679 ****
  1143.         int c2 = yyinput ();
  1144.         unput (c2);
  1145.         unput (c1);
  1146. !       int sep_op = match_any (c1, ",;\n]");
  1147.         int dot_op = (c1 == '.'
  1148.               && (isalpha (c2) || isspace (c2) || c2 == '_'));
  1149.         int index_op = (c1 == '('
  1150. --- 1698,1704 ----
  1151.         int c2 = yyinput ();
  1152.         unput (c2);
  1153.         unput (c1);
  1154. !       int sep_op = match_any (c1, ",;\n\r]");
  1155.         int dot_op = (c1 == '.'
  1156.               && (isalpha (c2) || isspace (c2) || c2 == '_'));
  1157.         int index_op = (c1 == '('
  1158. ***************
  1159. *** 1866,1871 ****
  1160. --- 1891,1898 ----
  1161.       case ',':
  1162.         break;
  1163.   
  1164. +     case '':
  1165. +     case '\r':
  1166.       case '\n':
  1167.         if (in_comment)
  1168.           in_comment = 0;
  1169. diff -cwr g:/project/C/octave-2.09.orig/src/mappers.cc g:/project/C/octave-2.09/src/mappers.cc
  1170. *** g:/project/C/octave-2.09.orig/src/mappers.cc    Thu Jun  5 03:13:30 1997
  1171. --- g:/project/C/octave-2.09/src/mappers.cc    Wed Jun 25 16:16:48 1997
  1172. ***************
  1173. *** 20,33 ****
  1174.   
  1175.   */
  1176.   
  1177.   #ifdef HAVE_CONFIG_H
  1178.   #include <config.h>
  1179.   #endif
  1180.   
  1181.   #include <cctype>
  1182.   #include <cfloat>
  1183. - 
  1184. - #include "lo-mappers.h"
  1185.   
  1186.   #include "defun.h"
  1187.   #include "error.h"
  1188. --- 20,33 ----
  1189.   
  1190.   */
  1191.   
  1192. + /* Modified by Klaus Gebhardt, 1997 */
  1193. + 
  1194.   #ifdef HAVE_CONFIG_H
  1195.   #include <config.h>
  1196.   #endif
  1197.   
  1198.   #include <cctype>
  1199.   #include <cfloat>
  1200.   
  1201.   #include "defun.h"
  1202.   #include "error.h"
  1203. diff -cwr g:/project/C/octave-2.09.orig/src/mappers.h g:/project/C/octave-2.09/src/mappers.h
  1204. *** g:/project/C/octave-2.09.orig/src/mappers.h    Fri May 24 05:08:38 1996
  1205. --- g:/project/C/octave-2.09/src/mappers.h    Wed Jun 25 16:17:02 1997
  1206. ***************
  1207. *** 20,32 ****
  1208.   
  1209.   */
  1210.   
  1211.   #if !defined (octave_mappers_h)
  1212.   #define octave_mappers_h 1
  1213.   
  1214.   #include <string>
  1215.   
  1216.   #include "lo-mappers.h"
  1217. - #include "oct-cmplx.h"
  1218.   
  1219.   typedef int (*ch_Mapper)(int);
  1220.   typedef double (*d_d_Mapper)(double);
  1221. --- 20,33 ----
  1222.   
  1223.   */
  1224.   
  1225. + /* Modified by Klaus Gebhardt, 1997 */
  1226. + 
  1227.   #if !defined (octave_mappers_h)
  1228.   #define octave_mappers_h 1
  1229.   
  1230.   #include <string>
  1231.   
  1232.   #include "lo-mappers.h"
  1233.   
  1234.   typedef int (*ch_Mapper)(int);
  1235.   typedef double (*d_d_Mapper)(double);
  1236. diff -cwr g:/project/C/octave-2.09.orig/src/oct-hist.cc g:/project/C/octave-2.09/src/oct-hist.cc
  1237. *** g:/project/C/octave-2.09.orig/src/oct-hist.cc    Wed May 28 03:36:46 1997
  1238. --- g:/project/C/octave-2.09/src/oct-hist.cc    Sat Mar 15 18:35:44 1997
  1239. ***************
  1240. *** 27,32 ****
  1241. --- 27,34 ----
  1242.   
  1243.   */
  1244.   
  1245. + /* Modified by Klaus Gebhardt, 1996 */
  1246. + 
  1247.   #ifdef HAVE_CONFIG_H
  1248.   #include <config.h>
  1249.   #endif
  1250. ***************
  1251. *** 64,69 ****
  1252. --- 66,79 ----
  1253.   #include "utils.h"
  1254.   #include "variables.h"
  1255.   
  1256. + #ifdef __EMX__
  1257. + extern "C"
  1258. + {
  1259. + #include <process.h>
  1260. +   int _IO_system (const char *, int);
  1261. + }
  1262. + #endif
  1263. + 
  1264.   // Nonzero means input is coming from temporary history file.
  1265.   int input_from_tmp_history_file = 0;
  1266.   
  1267. ***************
  1268. *** 283,289 ****
  1269.   
  1270.             int cmd_len = cmd.length ();
  1271.   
  1272. !           if (cmd[cmd_len - 1] == '\n')
  1273.           cmd.resize (cmd_len - 1);
  1274.   
  1275.             if (! cmd.empty ())
  1276. --- 293,300 ----
  1277.   
  1278.             int cmd_len = cmd.length ();
  1279.   
  1280. !           if (cmd[cmd_len - 1] == '\n' || cmd[cmd_len - 1] == '\r'
  1281. !           || cmd[cmd_len - 1] == '')
  1282.           cmd.resize (cmd_len - 1);
  1283.   
  1284.             if (! cmd.empty ())
  1285. ***************
  1286. *** 302,308 ****
  1287.   
  1288.         int len = tmp.length ();
  1289.       
  1290. !       if (len > 0 && tmp[len-1] == '\n')
  1291.       tmp.resize (len - 1);
  1292.   
  1293.         if (! tmp.empty ())
  1294. --- 313,320 ----
  1295.   
  1296.         int len = tmp.length ();
  1297.       
  1298. !       if (len > 0 &&
  1299. !       (tmp[len-1] == '\n' || tmp[len-1] == '\r' || tmp[len-1] == ''))
  1300.       tmp.resize (len - 1);
  1301.   
  1302.         if (! tmp.empty ())
  1303. ***************
  1304. *** 430,436 ****
  1305. --- 442,452 ----
  1306.     volatile octave_interrupt_handler old_interrupt_handler
  1307.       = octave_ignore_interrupts ();
  1308.   
  1309. + #ifdef __EMX__
  1310. +   _IO_system (cmd.c_str (), P_WAIT);
  1311. + #else
  1312.     system (cmd.c_str ());
  1313. + #endif
  1314.   
  1315.     octave_set_interrupt_handler (old_interrupt_handler);
  1316.   
  1317. diff -cwr g:/project/C/octave-2.09.orig/src/octave.cc g:/project/C/octave-2.09/src/octave.cc
  1318. *** g:/project/C/octave-2.09.orig/src/octave.cc    Wed May 28 03:39:28 1997
  1319. --- g:/project/C/octave-2.09/src/octave.cc    Mon May 26 18:12:16 1997
  1320. ***************
  1321. *** 22,27 ****
  1322. --- 22,29 ----
  1323.   
  1324.   // Born February 20, 1992.
  1325.   
  1326. + /* Modified by Klaus Gebhardt, 1996 */
  1327. + 
  1328.   #ifdef HAVE_CONFIG_H
  1329.   #include <config.h>
  1330.   #endif
  1331. ***************
  1332. *** 47,52 ****
  1333. --- 49,59 ----
  1334.   #include <pwd.h>
  1335.   #endif
  1336.   
  1337. + #ifdef __EMX__
  1338. + #include <float.h>
  1339. + #include <sys/uflags.h>
  1340. + #endif
  1341. + 
  1342.   #include "lo-error.h"
  1343.   #include "str-vec.h"
  1344.   
  1345. ***************
  1346. *** 121,127 ****
  1347.   
  1348.   // Usage message
  1349.   static const char *usage_string = 
  1350. !   "octave [-?Vdfhiqvx] [--debug] [--echo-commands] [--exec-path path]\n\
  1351.          [--help] [--info-file file] [--info-program prog] [--interactive]\n\
  1352.          [--no-init-file] [--no-line-editing] [--no-site-file] [-p path]\n\
  1353.          [--path path] [--silent] [--traditional] [--verbose] [--version] [file]";
  1354. --- 128,134 ----
  1355.   
  1356.   // Usage message
  1357.   static const char *usage_string = 
  1358. !   "octave [-?VdfhiIqvx] [--debug] [--echo-commands] [--exec-path path]\n\
  1359.          [--help] [--info-file file] [--info-program prog] [--interactive]\n\
  1360.          [--no-init-file] [--no-line-editing] [--no-site-file] [-p path]\n\
  1361.          [--path path] [--silent] [--traditional] [--verbose] [--version] [file]";
  1362. ***************
  1363. *** 129,135 ****
  1364.   // This is here so that it's more likely that the usage message and
  1365.   // the real set of options will agree.  Note: the `+' must come first
  1366.   // to prevent getopt from permuting arguments!
  1367. ! static const char *short_opts = "+?Vdfhip:qvx";
  1368.   
  1369.   // Long options.  See the comments in getopt.h for the meanings of the
  1370.   // fields in this structure.
  1371. --- 136,142 ----
  1372.   // This is here so that it's more likely that the usage message and
  1373.   // the real set of options will agree.  Note: the `+' must come first
  1374.   // to prevent getopt from permuting arguments!
  1375. ! static const char *short_opts = "+?VdfhiIp:qvx";
  1376.   
  1377.   // Long options.  See the comments in getopt.h for the meanings of the
  1378.   // fields in this structure.
  1379. ***************
  1380. *** 326,331 ****
  1381. --- 333,339 ----
  1382.     --info-file FILE        Use top-level info file FILE.\n\
  1383.     --info-program PROGRAM  Use PROGRAM for reading info files.\n\
  1384.     -i, --interactive       Force interactive behavior.\n\
  1385. +   -I                      Force really interactive behavior, but no pager.\n\
  1386.     --no-init-file          Don't read the ~/.octaverc or .octaverc files.\n\
  1387.     --no-line-editing       Don't use readline for command-line editing.\n\
  1388.     --no-site-file          Don't read the site-wide octaverc file.\n\
  1389. ***************
  1390. *** 452,457 ****
  1391. --- 460,469 ----
  1392.         forced_interactive = 1;
  1393.         break;
  1394.   
  1395. +     case 'I':
  1396. +       really_forced_interactive = 1;
  1397. +       break;
  1398. + 
  1399.       case 'p':
  1400.         if (args.optarg ())
  1401.           bind_builtin_variable ("LOADPATH", args.optarg ());
  1402. ***************
  1403. *** 539,544 ****
  1404. --- 551,563 ----
  1405.     if (! inhibit_startup_message && reading_startup_message_printed)
  1406.       cout << endl;
  1407.   
  1408. + #if defined (__EMX__)
  1409. +   _control87 (EM_INVALID | EM_DENORMAL | EM_ZERODIVIDE | EM_OVERFLOW |
  1410. +           EM_UNDERFLOW | EM_INEXACT, MCW_EM);
  1411. + 
  1412. +   _uflags (_UF_SBRK_MODEL, _UF_SBRK_ARBITRARY);
  1413. + #endif
  1414. + 
  1415.     // Avoid counting commands executed from startup files.
  1416.   
  1417.     current_command_number = 1;
  1418. ***************
  1419. *** 594,610 ****
  1420.     // Force input to be echoed if not really interactive, but the user
  1421.     // has forced interactive behavior.
  1422.   
  1423. !   if (! interactive && forced_interactive)
  1424.       {
  1425.         rl_blink_matching_paren = 0;
  1426.   
  1427.         // XXX FIXME XXX -- is this the right thing to do?
  1428.   
  1429.         bind_builtin_variable ("echo_executing_commands",
  1430.                    (double) ECHO_CMD_LINE);
  1431.       }
  1432.   
  1433. !   if (! interactive)
  1434.       using_readline = 0;
  1435.   
  1436.     int retval = main_loop ();
  1437. --- 613,631 ----
  1438.     // Force input to be echoed if not really interactive, but the user
  1439.     // has forced interactive behavior.
  1440.   
  1441. !   if (! interactive && (forced_interactive || really_forced_interactive))
  1442.       {
  1443.         rl_blink_matching_paren = 0;
  1444.   
  1445.         // XXX FIXME XXX -- is this the right thing to do?
  1446.   
  1447. + #if ! defined (__EMX__)
  1448.         bind_builtin_variable ("echo_executing_commands",
  1449.                    (double) ECHO_CMD_LINE);
  1450. + #endif
  1451.       }
  1452.   
  1453. !   if (! (interactive || really_forced_interactive))
  1454.       using_readline = 0;
  1455.   
  1456.     int retval = main_loop ();
  1457. diff -cwr g:/project/C/octave-2.09.orig/src/op-str-str.cc g:/project/C/octave-2.09/src/op-str-str.cc
  1458. *** g:/project/C/octave-2.09.orig/src/op-str-str.cc    Wed May 28 03:34:04 1997
  1459. --- g:/project/C/octave-2.09/src/op-str-str.cc    Wed Jan 29 05:16:18 1997
  1460. ***************
  1461. *** 20,25 ****
  1462. --- 20,27 ----
  1463.   
  1464.   */
  1465.   
  1466. + /* Modified by Klaus Gebhardt, 1997 */
  1467. + 
  1468.   #if defined (__GNUG__)
  1469.   #pragma implementation
  1470.   #endif
  1471. ***************
  1472. *** 50,69 ****
  1473.         if (cm2.rows () == 1 && cm2.columns () == 1)
  1474.       return octave_value (cm1 (0, 0) == cm2 (0, 0));
  1475.         else
  1476. !     SC_MX_BOOL_OP (char, c, cm1 (0, 0), charMatrix, m, cm2,
  1477.                  c == m (i, j), 0.0);
  1478.       }
  1479.     else
  1480.       {
  1481. !       int cm2_nr = cm2.rows ();
  1482. !       int cm2_nc = cm2.cols ();
  1483. ! 
  1484. !       if (cm2_nr == 1 && cm2_nc == 1)
  1485. !     MX_SC_BOOL_OP (charMatrix, m, cm1, char, c, cm2 (0, 0),
  1486.                  c == m (i, j), 0.0);
  1487.         else
  1488. !     MX_MX_BOOL_OP (charMatrix, m1, cm1, charMatrix, m2, cm2,
  1489. !                m1 (i, j) == m2 (i, j), "==", 0.0, 1.0);
  1490.       }
  1491.   }
  1492.   
  1493. --- 52,72 ----
  1494.         if (cm2.rows () == 1 && cm2.columns () == 1)
  1495.       return octave_value (cm1 (0, 0) == cm2 (0, 0));
  1496.         else
  1497. !     SC_MX_BOOL_OP (char, c, cm1 (0, 0), \
  1498. !                charMatrix, m, cm2, \
  1499.                  c == m (i, j), 0.0);
  1500.       }
  1501.     else
  1502.       {
  1503. !       if (cm2.rows () == 1 && cm2.columns () == 1)
  1504. !     MX_SC_BOOL_OP (charMatrix, m, cm1, \
  1505. !                char, c, cm2 (0, 0), \
  1506.                  c == m (i, j), 0.0);
  1507.         else
  1508. !     MX_MX_BOOL_OP (charMatrix, m1, cm1, \
  1509. !                charMatrix, m2, cm2, \
  1510. !                m1 (i, j) == m2 (i, j), \
  1511. !                "==", 0.0, 1.0);
  1512.       }
  1513.   }
  1514.   
  1515. diff -cwr g:/project/C/octave-2.09.orig/src/pager.cc g:/project/C/octave-2.09/src/pager.cc
  1516. *** g:/project/C/octave-2.09.orig/src/pager.cc    Wed May 28 03:39:30 1997
  1517. --- g:/project/C/octave-2.09/src/pager.cc    Mon May 26 18:18:04 1997
  1518. ***************
  1519. *** 20,25 ****
  1520. --- 20,27 ----
  1521.   
  1522.   */
  1523.   
  1524. + /* Modified by Klaus Gebhardt, 1996 */
  1525. + 
  1526.   #ifdef HAVE_CONFIG_H
  1527.   #include <config.h>
  1528.   #endif
  1529. ***************
  1530. *** 212,218 ****
  1531.   int
  1532.   octave_pager_buf::sync (void)
  1533.   {
  1534. !   if (! interactive
  1535.         || really_flush_to_pager
  1536.         || (Vpage_screen_output && Vpage_output_immediately)
  1537.         || ! Vpage_screen_output)
  1538. --- 214,220 ----
  1539.   int
  1540.   octave_pager_buf::sync (void)
  1541.   {
  1542. !   if ((! interactive || really_forced_interactive)
  1543.         || really_flush_to_pager
  1544.         || (Vpage_screen_output && Vpage_output_immediately)
  1545.         || ! Vpage_screen_output)
  1546. ***************
  1547. *** 221,227 ****
  1548.   
  1549.         char *buf = eback ();
  1550.   
  1551. !       bool bypass_pager = (! interactive
  1552.                  || ! Vpage_screen_output
  1553.                  || (really_flush_to_pager
  1554.                      && Vpage_screen_output
  1555. --- 223,229 ----
  1556.   
  1557.         char *buf = eback ();
  1558.   
  1559. !       bool bypass_pager = ((! interactive || really_forced_interactive)
  1560.                  || ! Vpage_screen_output
  1561.                  || (really_flush_to_pager
  1562.                      && Vpage_screen_output
  1563. diff -cwr g:/project/C/octave-2.09.orig/src/parse.y g:/project/C/octave-2.09/src/parse.y
  1564. *** g:/project/C/octave-2.09.orig/src/parse.y    Wed May 28 03:39:30 1997
  1565. --- g:/project/C/octave-2.09/src/parse.y    Sun Jul 20 18:18:30 1997
  1566. ***************
  1567. *** 20,25 ****
  1568. --- 20,27 ----
  1569.   
  1570.   */
  1571.   
  1572. + /* Modified by Klaus Gebhardt, 1996 */
  1573. + 
  1574.   // Parser for Octave.
  1575.   
  1576.   // C decarations.
  1577. ***************
  1578. *** 252,258 ****
  1579.       { \
  1580.         global_command = 0; \
  1581.         yyerrok; \
  1582. !       if (interactive || forced_interactive) \
  1583.       YYACCEPT; \
  1584.         else \
  1585.       YYABORT; \
  1586. --- 254,260 ----
  1587.       { \
  1588.         global_command = 0; \
  1589.         yyerrok; \
  1590. !       if (interactive || forced_interactive || really_forced_interactive) \
  1591.       YYACCEPT; \
  1592.         else \
  1593.       YYABORT; \
  1594. ***************
  1595. *** 370,376 ****
  1596.   %type <subplot_style_type> style
  1597.   
  1598.   // Precedence and associativity.
  1599. ! %left ';' ',' '\n'
  1600.   %right '='
  1601.   %left EXPR_AND_AND EXPR_OR_OR
  1602.   %left EXPR_AND EXPR_OR
  1603. --- 372,378 ----
  1604.   %type <subplot_style_type> style
  1605.   
  1606.   // Precedence and associativity.
  1607. ! %left ';' ',' '\n' '\r' ''
  1608.   %right '='
  1609.   %left EXPR_AND_AND EXPR_OR_OR
  1610.   %left EXPR_AND EXPR_OR
  1611. ***************
  1612. *** 413,422 ****
  1613. --- 415,432 ----
  1614.   
  1615.   input1        : '\n'
  1616.             { $$ = 0; }
  1617. +         | '\r'
  1618. +           { $$ = 0; }
  1619. +         | ''
  1620. +           { $$ = 0; }
  1621.           | simple_list
  1622.             { $$ = $1; }
  1623.           | simple_list '\n'
  1624.             { $$ = $1; }
  1625. +         | simple_list '\r'
  1626. +           { $$ = $1; }
  1627. +         | simple_list ''
  1628. +           { $$ = $1; }
  1629.           | simple_list END_OF_INPUT
  1630.             { $$ = $1; }
  1631.           ;
  1632. ***************
  1633. *** 1069,1080 ****
  1634. --- 1079,1092 ----
  1635.             }
  1636.           | param_list1 param_list_end
  1637.             {
  1638. +             lexer_flags.looking_at_parameter_list = 0;
  1639.               lexer_flags.quote_is_transpose = 0;
  1640.               $1->mark_as_formal_parameters ();
  1641.               $$ = $1;
  1642.             }
  1643.           | param_list1 ',' ELLIPSIS param_list_end
  1644.             {
  1645. +             lexer_flags.looking_at_parameter_list = 0;
  1646.               lexer_flags.quote_is_transpose = 0;
  1647.               $1->mark_as_formal_parameters ();
  1648.               $1->mark_varargs ();
  1649. ***************
  1650. *** 1201,1212 ****
  1651. --- 1213,1228 ----
  1652.             { $$ = ';'; }
  1653.           | '\n'
  1654.             { $$ = '\n'; }
  1655. +         | '\r'
  1656. +           { $$ = '\r'; }
  1657.           | sep ','
  1658.             { $$ = $1; }
  1659.           | sep ';'
  1660.             { $$ = $1; }
  1661.           | sep '\n'
  1662.             { $$ = $1; }
  1663. +         | sep '\r'
  1664. +           { $$ = $1; }
  1665.           ;
  1666.   
  1667.   opt_sep        : // empty
  1668. ***************
  1669. *** 2331,2336 ****
  1670. --- 2347,2353 ----
  1671.       case 0:
  1672.       case ',':
  1673.       case '\n':
  1674. +     case '\r':
  1675.         if (warn_missing_semi)
  1676.       maybe_warn_missing_semi (list);
  1677.         break;
  1678. diff -cwr g:/project/C/octave-2.09.orig/src/pt-plot.cc g:/project/C/octave-2.09/src/pt-plot.cc
  1679. *** g:/project/C/octave-2.09.orig/src/pt-plot.cc    Wed May 28 03:36:46 1997
  1680. --- g:/project/C/octave-2.09/src/pt-plot.cc    Fri Mar  7 04:48:20 1997
  1681. ***************
  1682. *** 20,25 ****
  1683. --- 20,27 ----
  1684.   
  1685.   */
  1686.   
  1687. + /* Modified by Klaus Gebhardt, 1996 */
  1688. + 
  1689.   #if defined (__GNUG__)
  1690.   #pragma implementation
  1691.   #endif
  1692. ***************
  1693. *** 172,184 ****
  1694.         sigemptyset (&set);
  1695.         sigaddset (&set, SIGINT);
  1696.         sigprocmask (SIG_BLOCK, &set, &oset);
  1697.   #else
  1698.        volatile octave_interrupt_handler old_interrupt_handler
  1699.       = octave_ignore_interrupts ();
  1700.   #endif
  1701. - 
  1702.         plot_stream = new oprocstream (plot_prog.c_str ());
  1703. ! 
  1704.         if (plot_stream)
  1705.       {
  1706.         if (! *plot_stream)
  1707. --- 174,190 ----
  1708.         sigemptyset (&set);
  1709.         sigaddset (&set, SIGINT);
  1710.         sigprocmask (SIG_BLOCK, &set, &oset);
  1711. + #endif
  1712. + 
  1713. + #if defined (__EMX__) && defined (OS2)
  1714. +       plot_stream = new oprocstream (plot_prog.c_str (), ios::out);
  1715.   #else
  1716. + #if !defined (HAVE_POSIX_SIGNALS)
  1717.         volatile octave_interrupt_handler old_interrupt_handler
  1718.       = octave_ignore_interrupts ();
  1719.   #endif
  1720.         plot_stream = new oprocstream (plot_prog.c_str ());
  1721. ! #endif
  1722.         if (plot_stream)
  1723.       {
  1724.         if (! *plot_stream)
  1725. ***************
  1726. *** 201,208 ****
  1727. --- 207,216 ----
  1728.   #if defined (HAVE_POSIX_SIGNALS)
  1729.         sigprocmask (SIG_SETMASK, &oset, 0);
  1730.   #else
  1731. + #if ! defined (__EMX__) || ! defined (OS2)
  1732.         octave_set_interrupt_handler (old_interrupt_handler);
  1733.   #endif
  1734. + #endif
  1735.       }
  1736.   
  1737.     if (! error_state && plot_stream && *plot_stream && ! initialized)
  1738. ***************
  1739. *** 1090,1095 ****
  1740. --- 1098,1104 ----
  1741.   
  1742.     char *plot_command = plot_buf.str ();
  1743.     send_to_plot_stream (plot_command);
  1744. +   sleep (2);
  1745.   
  1746.     delete [] plot_command;
  1747.   
  1748. diff -cwr g:/project/C/octave-2.09.orig/src/rand.cc g:/project/C/octave-2.09/src/rand.cc
  1749. *** g:/project/C/octave-2.09.orig/src/rand.cc    Sun Nov  3 09:22:46 1996
  1750. --- g:/project/C/octave-2.09/src/rand.cc    Sat Jul 19 14:30:48 1997
  1751. ***************
  1752. *** 20,25 ****
  1753. --- 20,27 ----
  1754.   
  1755.   */
  1756.   
  1757. + /* Modified by Klaus Gebhardt, 1997 */
  1758. + 
  1759.   #ifdef HAVE_CONFIG_H
  1760.   #include <config.h>
  1761.   #endif
  1762. ***************
  1763. *** 72,78 ****
  1764.   {
  1765.     union d2i { double d; int i[2]; };
  1766.     union d2i u;
  1767. !   F77_FCN (getsd, GETSD) (u.i[0], u.i[1]);
  1768.     return u.d;
  1769.   }
  1770.   
  1771. --- 74,80 ----
  1772.   {
  1773.     union d2i { double d; int i[2]; };
  1774.     union d2i u;
  1775. !   F77_XFCN (getsd, GETSD, (u.i[0], u.i[1]));
  1776.     return u.d;
  1777.   }
  1778.   
  1779. ***************
  1780. *** 99,105 ****
  1781.     u.d = val;
  1782.     int i0 = force_to_fit_range (u.i[0], 1, 2147483563);
  1783.     int i1 = force_to_fit_range (u.i[1], 1, 2147483399);
  1784. !   F77_FCN (setsd, SETSD) (i0, i1);
  1785.   }
  1786.   
  1787.   static char *
  1788. --- 101,107 ----
  1789.     u.d = val;
  1790.     int i0 = force_to_fit_range (u.i[0], 1, 2147483563);
  1791.     int i1 = force_to_fit_range (u.i[1], 1, 2147483399);
  1792. !   F77_XFCN (setsd, SETSD, (i0, i1));
  1793.   }
  1794.   
  1795.   static char *
  1796. ***************
  1797. *** 140,146 ****
  1798.     s0 = force_to_fit_range (s0, 1, 2147483563);
  1799.     s1 = force_to_fit_range (s1, 1, 2147483399);
  1800.   
  1801. !   F77_FCN (setall, SETALL) (s0, s1);
  1802.   
  1803.     initialized = 1;
  1804.   }
  1805. --- 142,148 ----
  1806.     s0 = force_to_fit_range (s0, 1, 2147483563);
  1807.     s1 = force_to_fit_range (s1, 1, 2147483399);
  1808.   
  1809. !   F77_XFCN (setall, SETALL, (s0, s1));
  1810.   
  1811.     initialized = 1;
  1812.   }
  1813. ***************
  1814. *** 180,192 ****
  1815.           {
  1816.             current_distribution = uniform_dist;
  1817.   
  1818. !           F77_FCN (setcgn, SETCGN) (uniform_dist);
  1819.           }
  1820.         else if (s_arg == "normal")
  1821.           {
  1822.             current_distribution = normal_dist;
  1823.   
  1824. !           F77_FCN (setcgn, SETCGN) (normal_dist);
  1825.           }
  1826.         else
  1827.           error ("rand: unrecognized string argument");
  1828. --- 182,194 ----
  1829.           {
  1830.             current_distribution = uniform_dist;
  1831.   
  1832. !           F77_XFCN (setcgn, SETCGN, (uniform_dist));
  1833.           }
  1834.         else if (s_arg == "normal")
  1835.           {
  1836.             current_distribution = normal_dist;
  1837.   
  1838. !           F77_XFCN (setcgn, SETCGN, (normal_dist));
  1839.           }
  1840.         else
  1841.           error ("rand: unrecognized string argument");
  1842. ***************
  1843. *** 302,313 ****
  1844.           switch (current_distribution)
  1845.             {
  1846.             case uniform_dist:
  1847. !         F77_FCN (dgenunf, DGENUNF) (0.0, 1.0, val);
  1848.           rand_mat (i, j) = val;
  1849.           break;
  1850.   
  1851.             case normal_dist:
  1852. !         F77_FCN (dgennor, DGENNOR) (0.0, 1.0, val);
  1853.           rand_mat (i, j) = val;
  1854.           break;
  1855.   
  1856. --- 304,315 ----
  1857.           switch (current_distribution)
  1858.             {
  1859.             case uniform_dist:
  1860. !         F77_XFCN (dgenunf, DGENUNF, (0.0, 1.0, val));
  1861.           rand_mat (i, j) = val;
  1862.           break;
  1863.   
  1864.             case normal_dist:
  1865. !         F77_XFCN (dgennor, DGENNOR, (0.0, 1.0, val));
  1866.           rand_mat (i, j) = val;
  1867.           break;
  1868.   
  1869. ***************
  1870. *** 356,362 ****
  1871.   static void
  1872.   reset_rand_generator (void *)
  1873.   {
  1874. !   F77_FCN (setcgn, SETCGN) (current_distribution);
  1875.   }
  1876.   
  1877.   DEFUN_DLD (randn, args, nargout,
  1878. --- 358,364 ----
  1879.   static void
  1880.   reset_rand_generator (void *)
  1881.   {
  1882. !   F77_XFCN (setcgn, SETCGN, (current_distribution));
  1883.   }
  1884.   
  1885.   DEFUN_DLD (randn, args, nargout,
  1886. ***************
  1887. *** 393,399 ****
  1888.   
  1889.         current_distribution = normal_dist;
  1890.   
  1891. !       F77_FCN (setcgn, SETCGN) (normal_dist);
  1892.   
  1893.         retval = do_rand (args, nargin);
  1894.   
  1895. --- 395,401 ----
  1896.   
  1897.         current_distribution = normal_dist;
  1898.   
  1899. !       F77_XFCN (setcgn, SETCGN, (normal_dist));
  1900.   
  1901.         retval = do_rand (args, nargin);
  1902.   
  1903. diff -cwr g:/project/C/octave-2.09.orig/src/sighandlers.cc g:/project/C/octave-2.09/src/sighandlers.cc
  1904. *** g:/project/C/octave-2.09.orig/src/sighandlers.cc    Wed May 28 03:39:30 1997
  1905. --- g:/project/C/octave-2.09/src/sighandlers.cc    Thu May 29 23:00:32 1997
  1906. ***************
  1907. *** 20,25 ****
  1908. --- 20,27 ----
  1909.   
  1910.   */
  1911.   
  1912. + /* Modified by Klaus Gebhardt, 1995 - 1996 */
  1913. + 
  1914.   #ifdef HAVE_CONFIG_H
  1915.   #include <config.h>
  1916.   #endif
  1917. ***************
  1918. *** 38,43 ****
  1919. --- 40,50 ----
  1920.   #include <unistd.h>
  1921.   #endif
  1922.   
  1923. + #ifdef __EMX__
  1924. + #include <float.h>
  1925. + #include <sys/uflags.h>
  1926. + #endif
  1927. + 
  1928.   #include "error.h"
  1929.   #include "load-save.h"
  1930.   #include "pager.h"
  1931. ***************
  1932. *** 81,87 ****
  1933.   
  1934.   #if defined (__EMX__)
  1935.   #define MAYBE_ACK_SIGNAL(sig) \
  1936. !   octave_set_signal_handler (sig, SIG_ACK)
  1937.   #else
  1938.   #define MAYBE_ACK_SIGNAL(sig) \
  1939.     do { } while (0)
  1940. --- 88,94 ----
  1941.   
  1942.   #if defined (__EMX__)
  1943.   #define MAYBE_ACK_SIGNAL(sig) \
  1944. !   signal (sig, SIG_ACK)
  1945.   #else
  1946.   #define MAYBE_ACK_SIGNAL(sig) \
  1947.     do { } while (0)
  1948. ***************
  1949. *** 122,128 ****
  1950.       {
  1951.         been_there_done_that = true;
  1952.   
  1953. !       cerr << "error: " << sig_name << " -- stopping myself...\n";
  1954.   
  1955.         save_user_variables ();
  1956.   
  1957. --- 129,135 ----
  1958.       {
  1959.         been_there_done_that = true;
  1960.   
  1961. !       cerr << "\n\nerror: " << sig_name << " -- stopping myself...\n";
  1962.   
  1963.         save_user_variables ();
  1964.   
  1965. ***************
  1966. *** 139,144 ****
  1967. --- 146,154 ----
  1968.   
  1969.     if (can_interrupt)
  1970.       {
  1971. + #ifdef __EMX__
  1972. +       _uflags (_UF_SBRK_MODEL, _UF_SBRK_ARBITRARY);
  1973. + #endif
  1974.         jump_to_top_level ();
  1975.         panic_impossible ();
  1976.       }
  1977. ***************
  1978. *** 157,162 ****
  1979. --- 167,176 ----
  1980.     sigemptyset (&oact.sa_mask);
  1981.     sigaction (sig, &act, &oact);
  1982.     return oact.sa_handler;
  1983. + #elif defined (__EMX__)
  1984. +   sig_handler *signal_handler = signal (sig, handler);
  1985. +   MAYBE_ACK_SIGNAL(sig);
  1986. +   return signal_handler;
  1987.   #else
  1988.     return signal (sig, handler);
  1989.   #endif
  1990. ***************
  1991. *** 173,179 ****
  1992.   // Handle SIGCHLD.
  1993.   
  1994.   static RETSIGTYPE
  1995. ! sigchld_handler (int /* sig */)
  1996.   {
  1997.     volatile octave_interrupt_handler saved_interrupt_handler
  1998.        = octave_ignore_interrupts ();
  1999. --- 187,193 ----
  2000.   // Handle SIGCHLD.
  2001.   
  2002.   static RETSIGTYPE
  2003. ! sigchld_handler (int sig )
  2004.   {
  2005.     volatile octave_interrupt_handler saved_interrupt_handler
  2006.       = octave_ignore_interrupts ();
  2007. ***************
  2008. *** 185,205 ****
  2009.   #if defined (__EMX__)
  2010.     volatile sig_handler *saved_sigchld_handler
  2011.       = octave_set_signal_handler (SIGCHLD, SIG_IGN);
  2012. ! #endif
  2013. ! 
  2014.     sigset_t set, oset;
  2015.   
  2016.     BLOCK_CHILD (set, oset);
  2017.   
  2018.     int n = octave_child_list::length ();
  2019.   
  2020. !   if (n == 0)
  2021. !     {
  2022. !       waitpid (-1, 0, WNOHANG);
  2023. !     }
  2024. !   else
  2025. !     {
  2026. !       for (int i = 0; i < n; i++)
  2027.       {
  2028.         octave_child& elt = octave_child_list::elem (i);
  2029.   
  2030. --- 199,214 ----
  2031.   #if defined (__EMX__)
  2032.     volatile sig_handler *saved_sigchld_handler
  2033.       = octave_set_signal_handler (SIGCHLD, SIG_IGN);
  2034. ! #else
  2035.     sigset_t set, oset;
  2036.   
  2037.     BLOCK_CHILD (set, oset);
  2038. + #endif
  2039.   
  2040. +   int i = 0;
  2041.     int n = octave_child_list::length ();
  2042.   
  2043. !   for (i = 0; i < n; i++)
  2044.       {
  2045.         octave_child& elt = octave_child_list::elem (i);
  2046.   
  2047. ***************
  2048. *** 215,234 ****
  2049.   
  2050.             octave_child::dead_child_handler f = elt.handler;
  2051.   
  2052. !           if (f)
  2053. !             f (pid, status);
  2054.   
  2055.             break;
  2056.           }
  2057.           }
  2058.       }
  2059. !     }
  2060.   
  2061.     octave_set_interrupt_handler (saved_interrupt_handler);
  2062.   
  2063.     UNBLOCK_CHILD (oset);
  2064. ! 
  2065. ! #ifdef __EMX__
  2066.     octave_set_signal_handler (SIGCHLD, saved_sigchld_handler);
  2067.   #endif
  2068.   
  2069. --- 224,248 ----
  2070.   
  2071.             octave_child::dead_child_handler f = elt.handler;
  2072.   
  2073. !           if (f)  f (pid, status);
  2074. !           else
  2075. !         {
  2076. !           string file = elt.filename;
  2077. !           unlink (file.c_str ());
  2078. !         }
  2079.   
  2080.             break;
  2081.           }
  2082.       }
  2083.       }
  2084. ! 
  2085. !   if (i == n)  waitpid (-1, NULL, WNOHANG);
  2086.   
  2087.     octave_set_interrupt_handler (saved_interrupt_handler);
  2088.   
  2089. + #ifndef __EMX__
  2090.     UNBLOCK_CHILD (oset);
  2091. ! #else
  2092.     octave_set_signal_handler (SIGCHLD, saved_sigchld_handler);
  2093.   #endif
  2094.   
  2095. ***************
  2096. *** 241,247 ****
  2097.   
  2098.   #if defined (__alpha__)
  2099.   static RETSIGTYPE
  2100. ! sigfpe_handler (int /* sig */)
  2101.   {
  2102.     MAYBE_ACK_SIGNAL (SIGFPE);
  2103.   
  2104. --- 255,261 ----
  2105.   
  2106.   #if defined (__alpha__)
  2107.   static RETSIGTYPE
  2108. ! sigfpe_handler (int sig)
  2109.   {
  2110.     MAYBE_ACK_SIGNAL (SIGFPE);
  2111.   
  2112. ***************
  2113. *** 251,256 ****
  2114. --- 265,274 ----
  2115.   
  2116.     if (can_interrupt)
  2117.       {
  2118. + #if defined (__EMX__)
  2119. +       _control87 (EM_INVALID | EM_DENORMAL | EM_ZERODIVIDE | EM_OVERFLOW |
  2120. +           EM_UNDERFLOW | EM_INEXACT, MCW_EM);
  2121. + #endif
  2122.         jump_to_top_level ();
  2123.         panic_impossible ();
  2124.       }
  2125. ***************
  2126. *** 282,288 ****
  2127.   }
  2128.   
  2129.   static RETSIGTYPE
  2130. ! sigpipe_handler (int /* sig */)
  2131.   {
  2132.     MAYBE_ACK_SIGNAL (SIGPIPE);
  2133.   
  2134. --- 300,306 ----
  2135.   }
  2136.   
  2137.   static RETSIGTYPE
  2138. ! sigpipe_handler (int sig)
  2139.   {
  2140.     MAYBE_ACK_SIGNAL (SIGPIPE);
  2141.   
  2142. ***************
  2143. *** 305,315 ****
  2144.     octave_interrupt_handler retval;
  2145.   
  2146.   #ifdef SIGINT
  2147. !   retval.int_handler = octave_set_signal_handler (SIGINT, sigint_handler);
  2148.   #endif
  2149.   
  2150.   #ifdef SIGBREAK
  2151. !   retval.brk_handler = octave_set_signal_handler (SIGBREAK, sigint_handler);
  2152.   #endif
  2153.   
  2154.     return retval;
  2155. --- 323,337 ----
  2156.     octave_interrupt_handler retval;
  2157.   
  2158.   #ifdef SIGINT
  2159. !   octave_set_signal_handler (SIGINT, sigint_handler);
  2160. !   retval.int_handler = sigint_handler;
  2161. !   MAYBE_ACK_SIGNAL (SIGINT);
  2162.   #endif
  2163.   
  2164.   #ifdef SIGBREAK
  2165. !   octave_set_signal_handler (SIGBREAK, sigint_handler);
  2166. !   retval.brk_handler = sigint_handler;
  2167. !   MAYBE_ACK_SIGNAL (SIGBREAK);
  2168.   #endif
  2169.   
  2170.     return retval;
  2171. ***************
  2172. *** 332,347 ****
  2173. --- 354,392 ----
  2174.   }
  2175.   
  2176.   octave_interrupt_handler
  2177. + octave_set_interrupt_handler (RETSIGTYPE (*f)(int))
  2178. + {
  2179. +   octave_interrupt_handler retval;
  2180. + 
  2181. +   if (f)
  2182. +     {
  2183. + #ifdef SIGINT
  2184. +       retval.int_handler = octave_set_signal_handler (SIGINT, f);
  2185. +       MAYBE_ACK_SIGNAL (SIGINT);
  2186. + #endif
  2187. + 
  2188. + #ifdef SIGBREAK
  2189. +       retval.brk_handler = octave_set_signal_handler (SIGBREAK, f);
  2190. +       MAYBE_ACK_SIGNAL (SIGBREAK);
  2191. + #endif
  2192. +     }
  2193. + 
  2194. +   return retval;
  2195. + }
  2196. + 
  2197. + octave_interrupt_handler
  2198.   octave_set_interrupt_handler (const volatile octave_interrupt_handler& h)
  2199.   {
  2200.     octave_interrupt_handler retval;
  2201.   
  2202.   #ifdef SIGINT
  2203.     retval.int_handler = octave_set_signal_handler (SIGINT, h.int_handler);
  2204. +   MAYBE_ACK_SIGNAL (SIGINT);
  2205.   #endif
  2206.   
  2207.   #ifdef SIGBREAK
  2208.     retval.brk_handler = octave_set_signal_handler (SIGBREAK, h.brk_handler);
  2209. +   MAYBE_ACK_SIGNAL (SIGBREAK);
  2210.   #endif
  2211.   
  2212.     return retval;
  2213. ***************
  2214. *** 425,432 ****
  2215. --- 470,481 ----
  2216.   #endif
  2217.   
  2218.   #ifdef SIGTERM
  2219. + #ifdef __EMX__
  2220. +   signal (SIGTERM, SIG_DFL);
  2221. + #else
  2222.     octave_set_signal_handler (SIGTERM, generic_sig_handler);
  2223.   #endif
  2224. + #endif
  2225.   
  2226.   #ifdef SIGTRAP
  2227.     octave_set_signal_handler (SIGTRAP, generic_sig_handler);
  2228. ***************
  2229. *** 570,576 ****
  2230.   octave_child_list *octave_child_list::instance = 0;
  2231.   
  2232.   void
  2233. ! octave_child_list::do_insert (pid_t pid, octave_child::dead_child_handler f)
  2234.   {
  2235.     // Insert item in first open slot, increasing size of list if
  2236.     // necessary.
  2237. --- 619,626 ----
  2238.   octave_child_list *octave_child_list::instance = 0;
  2239.   
  2240.   void
  2241. ! octave_child_list::do_insert (pid_t pid, octave_child::dead_child_handler f,
  2242. !                   string name)
  2243.   {
  2244.     // Insert item in first open slot, increasing size of list if
  2245.     // necessary.
  2246. ***************
  2247. *** 583,589 ****
  2248.   
  2249.         if (tmp.pid < 0)
  2250.       {
  2251. !       list (i) = octave_child (pid, f);
  2252.         enlarge = false;
  2253.         break;
  2254.       }
  2255. --- 633,639 ----
  2256.   
  2257.         if (tmp.pid < 0)
  2258.       {
  2259. !       list (i) = octave_child (pid, f, name);
  2260.         enlarge = false;
  2261.         break;
  2262.       }
  2263. ***************
  2264. *** 601,619 ****
  2265.           list.resize (total_len * 2);
  2266.       }
  2267.   
  2268. !       list (curr_len) = octave_child (pid, f);
  2269.         curr_len++;
  2270.       }
  2271.   }
  2272.   
  2273.   void
  2274. ! octave_child_list::insert (pid_t pid, octave_child::dead_child_handler f)
  2275.   {
  2276.     if (! instance)
  2277.       instance = new octave_child_list ();
  2278.   
  2279.     if (instance)
  2280. !     instance->do_insert (pid, f);
  2281.     else
  2282.       panic_impossible ();
  2283.   }
  2284. --- 651,670 ----
  2285.           list.resize (total_len * 2);
  2286.       }
  2287.   
  2288. !       list (curr_len) = octave_child (pid, f, name);
  2289.         curr_len++;
  2290.       }
  2291.   }
  2292.   
  2293.   void
  2294. ! octave_child_list::insert (pid_t pid, octave_child::dead_child_handler f,
  2295. !                string name)
  2296.   {
  2297.     if (! instance)
  2298.       instance = new octave_child_list ();
  2299.   
  2300.     if (instance)
  2301. !     instance->do_insert (pid, f, name);
  2302.     else
  2303.       panic_impossible ();
  2304.   }
  2305. diff -cwr g:/project/C/octave-2.09.orig/src/sighandlers.h g:/project/C/octave-2.09/src/sighandlers.h
  2306. *** g:/project/C/octave-2.09.orig/src/sighandlers.h    Wed May 28 03:36:48 1997
  2307. --- g:/project/C/octave-2.09/src/sighandlers.h    Fri Mar  7 19:43:30 1997
  2308. ***************
  2309. *** 22,30 ****
  2310. --- 22,34 ----
  2311.   
  2312.   // This file should always be included after config.h!
  2313.   
  2314. + /* Modified by Klaus Gebhardt, 1996 */
  2315. + 
  2316.   #if !defined (octave_sighandlers_h)
  2317.   #define octave_sighandlers_h 1
  2318.   
  2319. + #include <string>
  2320. + 
  2321.   #include <Array.h>
  2322.   
  2323.   #include "syswait.h"
  2324. ***************
  2325. *** 59,66 ****
  2326.   
  2327.   typedef RETSIGTYPE sig_handler (int);
  2328.   
  2329. - // XXX FIXME XXX -- the data should probably be private...
  2330. - 
  2331.   struct
  2332.   octave_interrupt_handler
  2333.   {
  2334. --- 63,68 ----
  2335. ***************
  2336. *** 89,94 ****
  2337. --- 91,99 ----
  2338.   extern octave_interrupt_handler octave_ignore_interrupts (void);
  2339.   
  2340.   extern octave_interrupt_handler 
  2341. + octave_set_interrupt_handler (RETSIGTYPE (*)(int));
  2342. + 
  2343. + extern octave_interrupt_handler 
  2344.   octave_set_interrupt_handler (const volatile octave_interrupt_handler&);
  2345.   
  2346.   extern void octave_save_signal_mask (void);
  2347. ***************
  2348. *** 112,122 ****
  2349.   
  2350.     typedef void (*dead_child_handler) (pid_t, int);
  2351.   
  2352. !   octave_child (pid_t id = -1, dead_child_handler f = 0)
  2353. !     : pid (id), handler (f) { }
  2354.   
  2355.     octave_child (const octave_child& oc)
  2356. !     : pid (oc.pid), handler (oc.handler) { }
  2357.   
  2358.     octave_child& operator = (const octave_child& oc)
  2359.       {
  2360. --- 117,127 ----
  2361.   
  2362.     typedef void (*dead_child_handler) (pid_t, int);
  2363.   
  2364. !   octave_child (pid_t id = -1, dead_child_handler f = 0, string name = "")
  2365. !     : pid (id), handler (f), filename (name) { }
  2366.   
  2367.     octave_child (const octave_child& oc)
  2368. !     : pid (oc.pid), handler (oc.handler), filename (oc.filename) { }
  2369.   
  2370.     octave_child& operator = (const octave_child& oc)
  2371.       {
  2372. ***************
  2373. *** 124,129 ****
  2374. --- 129,135 ----
  2375.       {
  2376.         pid = oc.pid;
  2377.         handler = oc.handler;
  2378. +       filename = oc.filename;
  2379.       }
  2380.         return *this;
  2381.       }
  2382. ***************
  2383. *** 135,140 ****
  2384. --- 141,149 ----
  2385.   
  2386.     // The function we call if this child dies.
  2387.     dead_child_handler handler;
  2388. + 
  2389. +   // The file to remove if this child dies.
  2390. +   string filename;
  2391.   };
  2392.   
  2393.   class
  2394. ***************
  2395. *** 148,154 ****
  2396.   
  2397.     ~octave_child_list (void) { }
  2398.   
  2399. !   static void insert (pid_t pid, octave_child::dead_child_handler f);
  2400.   
  2401.     static void remove (pid_t pid);
  2402.   
  2403. --- 157,164 ----
  2404.   
  2405.     ~octave_child_list (void) { }
  2406.   
  2407. !   static void insert (pid_t pid, octave_child::dead_child_handler f,
  2408. !               string name = "");
  2409.   
  2410.     static void remove (pid_t pid);
  2411.   
  2412. ***************
  2413. *** 177,183 ****
  2414.   
  2415.     static octave_child_list *instance;
  2416.   
  2417. !   void do_insert (pid_t pid, octave_child::dead_child_handler f);
  2418.   
  2419.     void do_remove (pid_t pid);
  2420.   };
  2421. --- 187,194 ----
  2422.   
  2423.     static octave_child_list *instance;
  2424.   
  2425. !   void do_insert (pid_t pid, octave_child::dead_child_handler f,
  2426. !           string name = "");
  2427.   
  2428.     void do_remove (pid_t pid);
  2429.   };
  2430. diff -cwr g:/project/C/octave-2.09.orig/src/strftime.c g:/project/C/octave-2.09/src/strftime.c
  2431. *** g:/project/C/octave-2.09.orig/src/strftime.c    Wed May 28 03:37:42 1997
  2432. --- g:/project/C/octave-2.09/src/strftime.c    Fri Mar  7 22:55:12 1997
  2433. ***************
  2434. *** 47,53 ****
  2435.   # endif
  2436.   #endif
  2437.   
  2438. ! #if HAVE_TZNAME
  2439.   extern char *tzname[];
  2440.   #endif
  2441.   
  2442. --- 47,53 ----
  2443.   # endif
  2444.   #endif
  2445.   
  2446. ! #ifdef HAVE_TZNAME
  2447.   extern char *tzname[];
  2448.   #endif
  2449.   
  2450. ***************
  2451. *** 59,66 ****
  2452.      with other C libraries that use unsafe encodings.  */
  2453.   #define DO_MULTIBYTE (HAVE_MBLEN && ! MULTIBYTE_IS_FORMAT_SAFE)
  2454.   
  2455. ! #if DO_MULTIBYTE
  2456. ! # if HAVE_MBRLEN
  2457.   #  include <wchar.h>
  2458.   # else
  2459.      /* Simulate mbrlen with mblen as best we can.  */
  2460. --- 59,66 ----
  2461.      with other C libraries that use unsafe encodings.  */
  2462.   #define DO_MULTIBYTE (HAVE_MBLEN && ! MULTIBYTE_IS_FORMAT_SAFE)
  2463.   
  2464. ! #ifdef DO_MULTIBYTE
  2465. ! #ifdef HAVE_MBRLEN
  2466.   #include <wchar.h>
  2467.   #else
  2468.   /* Simulate mbrlen with mblen as best we can.  */
  2469. ***************
  2470. *** 71,81 ****
  2471.     static const mbstate_t mbstate_zero;
  2472.   #endif
  2473.   
  2474. ! #if HAVE_LIMITS_H
  2475.   # include <limits.h>
  2476.   #endif
  2477.   
  2478. ! #if STDC_HEADERS
  2479.   # include <stddef.h>
  2480.   # include <stdlib.h>
  2481.   # include <string.h>
  2482. --- 71,81 ----
  2483.   static const mbstate_t mbstate_zero;
  2484.   #endif
  2485.   
  2486. ! #ifdef HAVE_LIMITS_H
  2487.   #include <limits.h>
  2488.   #endif
  2489.   
  2490. ! #ifdef STDC_HEADERS
  2491.   #include <stddef.h>
  2492.   #include <stdlib.h>
  2493.   #include <string.h>
  2494. ***************
  2495. *** 178,184 ****
  2496.       } while (0)
  2497.   #define    cpy(n, s)    add ((n), memcpy((PTR) p, (PTR) (s), (n)))
  2498.   
  2499. ! #if ! HAVE_TM_GMTOFF
  2500.   /* Yield the difference between *A and *B,
  2501.      measured in seconds, ignoring leap seconds.  */
  2502.   static int tm_diff __P ((const struct tm *, const struct tm *));
  2503. --- 178,184 ----
  2504.       } while (0)
  2505.   #define    cpy(n, s)    add ((n), memcpy((PTR) p, (PTR) (s), (n)))
  2506.   
  2507. ! #ifndef HAVE_TM_GMTOFF
  2508.   /* Yield the difference between *A and *B,
  2509.      measured in seconds, ignoring leap seconds.  */
  2510.   static int tm_diff __P ((const struct tm *, const struct tm *));
  2511. ***************
  2512. *** 288,297 ****
  2513.     register const char *f;
  2514.   
  2515.     zone = 0;
  2516. ! #if HAVE_TM_ZONE
  2517.     zone = (const char *) tp->tm_zone;
  2518.   #endif
  2519. ! #if HAVE_TZNAME
  2520.     if (!(zone && *zone) && tp->tm_isdst >= 0)
  2521.       zone = tzname[tp->tm_isdst];
  2522.   #endif
  2523. --- 288,297 ----
  2524.     register const char *f;
  2525.   
  2526.     zone = 0;
  2527. ! #ifdef HAVE_TM_ZONE
  2528.     zone = (const char *) tp->tm_zone;
  2529.   #endif
  2530. ! #ifdef HAVE_TZNAME
  2531.     if (!(zone && *zone) && tp->tm_isdst >= 0)
  2532.       zone = tzname[tp->tm_isdst];
  2533.   #endif
  2534. ***************
  2535. *** 318,324 ****
  2536.               ? INT_STRLEN_BOUND (time_t)
  2537.               : INT_STRLEN_BOUND (int))];
  2538.   
  2539. ! #if DO_MULTIBYTE
  2540.   
  2541.          switch (*f)
  2542.       {
  2543. --- 318,324 ----
  2544.               ? INT_STRLEN_BOUND (time_t)
  2545.               : INT_STRLEN_BOUND (int))];
  2546.   
  2547. ! #ifdef DO_MULTIBYTE
  2548.   
  2549.          switch (*f)
  2550.       {
  2551. ***************
  2552. *** 480,486 ****
  2553.       case 'C':        /* POSIX.2 extension.  */
  2554.         if (modifier == 'O')
  2555.           goto bad_format;
  2556. ! #if HAVE_STRUCT_ERA_ENTRY
  2557.         if (modifier == 'E')
  2558.           {
  2559.             struct era_entry *era = _nl_get_era_entry (tp);
  2560. --- 480,486 ----
  2561.       case 'C':        /* POSIX.2 extension.  */
  2562.         if (modifier == 'O')
  2563.           goto bad_format;
  2564. ! #ifdef HAVE_STRUCT_ERA_ENTRY
  2565.         if (modifier == 'E')
  2566.           {
  2567.             struct era_entry *era = _nl_get_era_entry (tp);
  2568. ***************
  2569. *** 781,787 ****
  2570.         DO_NUMBER (1, tp->tm_wday);
  2571.   
  2572.       case 'Y':
  2573. ! #if HAVE_STRUCT_ERA_ENTRY
  2574.         if (modifier == 'E')
  2575.           {
  2576.             struct era_entry *era = _nl_get_era_entry (tp);
  2577. --- 781,787 ----
  2578.         DO_NUMBER (1, tp->tm_wday);
  2579.   
  2580.       case 'Y':
  2581. ! #ifdef HAVE_STRUCT_ERA_ENTRY
  2582.         if (modifier == 'E')
  2583.           {
  2584.             struct era_entry *era = _nl_get_era_entry (tp);
  2585. ***************
  2586. *** 798,804 ****
  2587.           DO_NUMBER (1, tp->tm_year + TM_YEAR_BASE);
  2588.   
  2589.       case 'y':
  2590. ! #if HAVE_STRUCT_ERA_ENTRY
  2591.         if (modifier == 'E')
  2592.           {
  2593.             struct era_entry *era = _nl_get_era_entry (tp);
  2594. --- 798,804 ----
  2595.           DO_NUMBER (1, tp->tm_year + TM_YEAR_BASE);
  2596.   
  2597.       case 'y':
  2598. ! #ifdef HAVE_STRUCT_ERA_ENTRY
  2599.         if (modifier == 'E')
  2600.           {
  2601.             struct era_entry *era = _nl_get_era_entry (tp);
  2602. ***************
  2603. *** 822,828 ****
  2604.   
  2605.         {
  2606.           int diff;
  2607. ! #if HAVE_TM_GMTOFF
  2608.           diff = tp->tm_gmtoff;
  2609.   #else
  2610.           struct tm gtm;
  2611. --- 822,828 ----
  2612.   
  2613.         {
  2614.           int diff;
  2615. ! #ifdef HAVE_TM_GMTOFF
  2616.           diff = tp->tm_gmtoff;
  2617.   #else
  2618.           struct tm gtm;
  2619. diff -cwr g:/project/C/octave-2.09.orig/src/syscalls.cc g:/project/C/octave-2.09/src/syscalls.cc
  2620. *** g:/project/C/octave-2.09.orig/src/syscalls.cc    Wed May 28 03:39:30 1997
  2621. --- g:/project/C/octave-2.09/src/syscalls.cc    Tue May 27 15:31:30 1997
  2622. ***************
  2623. *** 25,30 ****
  2624. --- 25,32 ----
  2625.   //
  2626.   //   mkfifo  unlink  waitpid
  2627.   
  2628. + /* Modified by Klaus Gebhardt, 1996 */
  2629. + 
  2630.   #ifdef HAVE_CONFIG_H
  2631.   #include <config.h>
  2632.   #endif
  2633. ***************
  2634. *** 32,37 ****
  2635. --- 34,40 ----
  2636.   #include <cerrno>
  2637.   #include <cstdio>
  2638.   #include <cstring>
  2639. + #include <csignal>
  2640.   
  2641.   #ifdef HAVE_UNISTD_H
  2642.   #ifdef HAVE_SYS_TYPES_H
  2643. ***************
  2644. *** 44,49 ****
  2645. --- 47,54 ----
  2646.   #include <fcntl.h>
  2647.   #endif
  2648.   
  2649. + #include <process.h>
  2650. + 
  2651.   #include "defun.h"
  2652.   #include "error.h"
  2653.   #include "file-ops.h"
  2654. ***************
  2655. *** 54,59 ****
  2656. --- 59,66 ----
  2657.   #include "oct-obj.h"
  2658.   #include "oct-stdstrm.h"
  2659.   #include "oct-stream.h"
  2660. + #include "oct-fstrm.h"
  2661. + #include "sighandlers.h"
  2662.   #include "sysdep.h"
  2663.   #include "syswait.h"
  2664.   #include "utils.h"
  2665. ***************
  2666. *** 87,94 ****
  2667.     return m;
  2668.   }
  2669.   
  2670. ! DEFUN (dup2, args, ,
  2671. !  "[FID, MSG] = dup2 (OLD, NEW)\n\
  2672.   \n\
  2673.   Duplicate a file descriptor.\n\
  2674.   \n\
  2675. --- 94,148 ----
  2676.     return m;
  2677.   }
  2678.   
  2679. ! DEFUN (_dup, args, ,
  2680. !  "[FID, MSG] = _dup (old): duplicate a file descriptor")
  2681. ! {
  2682. !   octave_value_list retval;
  2683. ! 
  2684. !   retval(1) = string ();
  2685. !   retval(0) = -1.0;
  2686. ! 
  2687. !   int nargin = args.length ();
  2688. ! 
  2689. !   if (nargin == 1)
  2690. !     {
  2691. ! #if defined (HAVE_DUP)
  2692. !       double d_old = args(0).double_value ();
  2693. ! 
  2694. !       if (! error_state)
  2695. !     {
  2696. !       if (D_NINT (d_old) == d_old)
  2697. !         {
  2698. !           int i_old = NINT (d_old);
  2699. ! 
  2700. !           // XXX FIXME XXX -- are these checks sufficient?
  2701. !           if (i_old >= 0)
  2702. !         {
  2703. !           int status = dup (i_old);
  2704. ! 
  2705. !           retval(0) = (double) status;
  2706. ! 
  2707. !           if (status < 0)
  2708. !             retval(1) = strerror (errno);
  2709. !         }
  2710. !           else
  2711. !         error ("_dup: invalid file id");
  2712. !         }
  2713. !       else
  2714. !         error ("_dup: argument must be integer value");
  2715. !     }
  2716. ! #else
  2717. !       gripe_not_supported ("_dup");
  2718. ! #endif
  2719. !     }
  2720. !   else
  2721. !     print_usage ("_dup");
  2722. ! 
  2723. !   return retval;
  2724. ! }
  2725. ! 
  2726. ! DEFUN (_dup2, args, ,
  2727. !  "[FID, MSG] = _dup2 (OLD, NEW)\n\
  2728.   \n\
  2729.   Duplicate a file descriptor.\n\
  2730.   \n\
  2731. ***************
  2732. *** 126,142 ****
  2733.               retval(1) = strerror (errno);
  2734.           }
  2735.             else
  2736. !         error ("dup2: invalid file id");
  2737.           }
  2738.         else
  2739. !         error ("dup2: arguments must be integer values");
  2740.       }
  2741.   #else
  2742. !       gripe_not_supported ("dup2");
  2743.   #endif
  2744.       }
  2745.     else
  2746. !     print_usage ("dup2");
  2747.   
  2748.     return retval;
  2749.   }
  2750. --- 180,393 ----
  2751.               retval(1) = strerror (errno);
  2752.           }
  2753.             else
  2754. !         error ("_dup2: invalid file id");
  2755. !         }
  2756. !       else
  2757. !         error ("_dup2: arguments must be integer values");
  2758. !     }
  2759. ! #else
  2760. !       gripe_not_supported ("_dup2");
  2761. ! #endif
  2762. !     }
  2763. !   else
  2764. !     print_usage ("_dup2");
  2765. ! 
  2766. !   return retval;
  2767. ! }
  2768. ! 
  2769. ! DEFUN (_close, args, ,
  2770. !  "[RETVAL, MSG] = _close (fid): close a file handle")
  2771. ! {
  2772. !   octave_value_list retval;
  2773. ! 
  2774. !   retval(1) = string ();
  2775. !   retval(0) = -1.0;
  2776. ! 
  2777. !   int nargin = args.length ();
  2778. ! 
  2779. !   if (nargin == 1)
  2780. !     {
  2781. !       double d_old = args(0).double_value ();
  2782. ! 
  2783. !       if (! error_state)
  2784. !     {
  2785. !       if (D_NINT (d_old) == d_old)
  2786. !         {
  2787. !           int i_old = NINT (d_old);
  2788. ! 
  2789. !           // XXX FIXME XXX -- are these checks sufficient?
  2790. !           if (i_old >= 0)
  2791. !         {
  2792. !           int status = close (i_old);
  2793. ! 
  2794. !           retval(0) = (double) status;
  2795. ! 
  2796. !           if (status < 0)
  2797. !             retval(1) = strerror (errno);
  2798. !         }
  2799. !           else
  2800. !         error ("_close: invalid file id");
  2801. !         }
  2802. !       else
  2803. !         error ("_close: argument must be integer value");
  2804. !     }
  2805. !     }
  2806. !   else
  2807. !     print_usage ("_close");
  2808. ! 
  2809. !   return retval;
  2810. ! }
  2811. ! 
  2812. ! DEFUN (_fdopen, args, ,
  2813. !  "[FID, MSG] = _fdopen (fid, mode): create a stream for file handle")
  2814. ! {
  2815. !   octave_value_list retval;
  2816. ! 
  2817. !   retval(1) = string ();
  2818. !   retval(0) = -1.0;
  2819. ! 
  2820. !   int nargin = args.length ();
  2821. ! 
  2822. !   if (nargin == 2)
  2823. !     {
  2824. !       if (args(1).is_string ())
  2825. !     {
  2826. !       string mode = args(1).string_value ();
  2827. ! 
  2828. !       double d_old = args(0).double_value ();
  2829. ! 
  2830. !       if (! error_state)
  2831. !         {
  2832. !           if (D_NINT (d_old) == d_old)
  2833. !         {
  2834. !           int i_old = NINT (d_old);
  2835. ! 
  2836. !           // XXX FIXME XXX -- are these checks sufficient?
  2837. !           if (i_old >= 0)
  2838. !             {
  2839. !               if (mode == "r")
  2840. !             {
  2841. !               FILE *f = fdopen (i_old, "r");
  2842. !               octave_istdiostream *is
  2843. !                 = new octave_istdiostream ("fdopen", f);
  2844. !               retval(0) = octave_stream_list::insert (is);
  2845. !             }
  2846. !               else if (mode == "w")
  2847. !             {
  2848. !               FILE *f = fdopen (i_old, "w");
  2849. !               octave_ostdiostream *os
  2850. !                 = new octave_ostdiostream ("fdopen", f);
  2851. !               retval(0) = octave_stream_list::insert (os);
  2852. !             }
  2853. !               else
  2854. !             error ("_fdopen: invalid mode");
  2855. !             }
  2856. !           else
  2857. !             error ("_fdopen: invalid file id");
  2858. !         }
  2859. !           else
  2860. !         error ("_fdopen: argument must be integer value");
  2861. !         }
  2862. !     }
  2863. !       else
  2864. !     error ("_fdopen: mode must be a string");
  2865.       }
  2866.     else
  2867. !     print_usage ("_fdopen");
  2868. ! 
  2869. !   return retval;
  2870. ! }
  2871. ! 
  2872. ! DEFUN (spawn, args, ,
  2873. !  "[STATUS, MSG] = spawn (mode, file, args): run a program")
  2874. ! {
  2875. !   octave_value_list retval;
  2876. ! 
  2877. !   retval(1) = string ();
  2878. !   retval(0) = -1.0;
  2879. ! 
  2880. !   int nargin = args.length ();
  2881. ! 
  2882. !   if (nargin == 2 || nargin == 3)
  2883. !     {
  2884. ! #if defined (HAVE_SPAWNVP)
  2885. !       string mode_strg = args(0).string_value ();
  2886. !       string exec_file = args(1).string_value ();
  2887. ! 
  2888. !       int mode = P_WAIT;
  2889. ! 
  2890. !       if (mode_strg == "wait")
  2891. !     mode = P_WAIT;
  2892. !       else if (mode_strg == "nowait")
  2893. !     mode = P_NOWAIT;
  2894. !       else if (mode_strg == "detach")
  2895. !     mode = P_DETACH;
  2896. !       else if (mode_strg == "session")
  2897. !     mode = P_SESSION;
  2898. !       else if (mode_strg == "pm")
  2899. !     mode = P_PM;
  2900. !       else
  2901. !     error ("system: invalid mode specified.");
  2902. ! 
  2903. !       if (! error_state)
  2904. !     {
  2905. !       char **exec_args = 0;
  2906. ! 
  2907. !       if (nargin == 3)
  2908. !         {
  2909. !           charMatrix chm = args(2).all_strings ();
  2910. ! 
  2911. !           if (! error_state)
  2912. !         {
  2913. !           int nr = chm.rows ();
  2914. !           int nc = chm.cols ();
  2915. ! 
  2916. !           exec_args = new char * [nr+2];
  2917. ! 
  2918. !           // XXX FIXME XXX -- potential leak?
  2919. ! 
  2920. !           exec_args[0] = strsave (exec_file.c_str ());
  2921. !           exec_args[nr+1] = 0;
  2922. ! 
  2923. !           for (int i = 0; i < nr; i++)
  2924. !             {
  2925. !               exec_args[i+1] = new char [nc+1];
  2926. ! 
  2927. !               for (int j = 0; j < nc; j++)
  2928. !             exec_args[i+1][j] = chm (i, j);
  2929. ! 
  2930. !               exec_args[i+1][nc] = '\0';
  2931. !             }
  2932. !         }
  2933. !           else
  2934. !         error ("spawn: arguments must be strings");
  2935. !         }
  2936. !       else
  2937. !         {
  2938. !           exec_args = new char * [2];
  2939. ! 
  2940. !           exec_args[0] = strsave (exec_file.c_str ());
  2941. !           exec_args[1] = 0;
  2942.           }
  2943. + 
  2944. +       if (! error_state)
  2945. +         {
  2946. +           int status = spawnvp (mode, exec_file.c_str (), exec_args);
  2947. + 
  2948. +           retval(0) = (double) status;
  2949. + 
  2950. +           if (status < 0)
  2951. +         retval(1) = strerror (errno);
  2952. +         }
  2953. +     }
  2954. +       else
  2955. +     error ("spawn: first two arguments must be strings");
  2956.   #else
  2957. !       gripe_not_supported ("spawn");
  2958.   #endif
  2959.       }
  2960.     else
  2961. !     print_usage ("spawn");
  2962.   
  2963.     return retval;
  2964.   }
  2965. ***************
  2966. *** 224,231 ****
  2967.     return retval;
  2968.   }
  2969.   
  2970. ! DEFUN (fcntl, args, ,
  2971. !  "[STATUS, MSG] = fcntl (FID, REQUEST, ARGUMENT)\n\
  2972.   \n\
  2973.   Control open file descriptors.\n\
  2974.   \n\
  2975. --- 475,482 ----
  2976.     return retval;
  2977.   }
  2978.   
  2979. ! DEFUN (_fcntl, args, ,
  2980. !  "[STATUS, MSG] = _fcntl (FID, REQUEST, ARGUMENT)\n\
  2981.   \n\
  2982.   Control open file descriptors.\n\
  2983.   \n\
  2984. ***************
  2985. *** 516,521 ****
  2986. --- 767,773 ----
  2987.   
  2988.     if (nargin == 2)
  2989.       {
  2990. + #if defined (HAVE_MKFIFO)
  2991.         if (args(0).is_string ())
  2992.       {
  2993.         string name = args(0).string_value ();
  2994. ***************
  2995. *** 538,544 ****
  2996.       }
  2997.         else
  2998.       error ("mkfifo: file name must be a string");
  2999. ! 
  3000.       }
  3001.     else
  3002.       print_usage ("mkfifo");
  3003. --- 790,798 ----
  3004.       }
  3005.         else
  3006.       error ("mkfifo: file name must be a string");
  3007. ! #else
  3008. !       gripe_not_supported ("mkfifo");
  3009. ! #endif
  3010.       }
  3011.     else
  3012.       print_usage ("mkfifo");
  3013. ***************
  3014. *** 546,551 ****
  3015. --- 800,852 ----
  3016.     return retval;
  3017.   }
  3018.   
  3019. + DEFUN (_pipe, args, ,
  3020. +   "[FIDS, STATUS, MSG] = _pipe (): create an interprocess channel.\n\
  3021. + \n\
  3022. + Return the FIDS corresponding to the reading and writing ends of\n\
  3023. + the pipe, as a vector.\n\
  3024. + \n\
  3025. + You must open the FIDS using _fdopen!\n\
  3026. + \n\
  3027. + If successful, STATUS is 0 and MSG is an empty string.  Otherwise,\n\
  3028. + STATUS is nonzero and MSG contains a system-dependent error message.")
  3029. + {
  3030. +   octave_value_list retval;
  3031. + 
  3032. +   retval(2) = string ();
  3033. +   retval(1) = -1.0;
  3034. +   retval(0) = Matrix ();
  3035. + 
  3036. +   int nargin = args.length ();
  3037. + 
  3038. +   if (nargin == 0)
  3039. +     {
  3040. + #if defined (HAVE_PIPE)
  3041. +       int fid[2];
  3042. + 
  3043. +       int status = pipe (fid);
  3044. + 
  3045. +       if (status < 0)  retval(2) = strerror (errno);
  3046. +       else
  3047. +     {
  3048. +       Matrix file_ids (1, 2);
  3049. + 
  3050. +       file_ids (0, 0) = (double) fid[0];
  3051. +       file_ids (0, 1) = (double) fid[1];
  3052. + 
  3053. +           retval(0) = file_ids;
  3054. +       retval(1) = (double) status;
  3055. +     }      
  3056. + #else
  3057. +       gripe_not_supported ("_pipe");
  3058. + #endif
  3059. +     }
  3060. +   else
  3061. +     print_usage ("_pipe");
  3062. + 
  3063. +   return retval;
  3064. + }
  3065. + 
  3066.   DEFUN (pipe, args, ,
  3067.     "[FILE_IDS, STATUS, MSG] = pipe (): create an interprocess channel.\n\
  3068.   \n\
  3069. ***************
  3070. *** 766,773 ****
  3071.   
  3072.             if (! error_state)
  3073.           {
  3074. !           pid_t status = waitpid (pid, 0, options);
  3075.   
  3076.             retval(0) = (double) status;
  3077.   
  3078.             if (status < 0)
  3079. --- 1067,1084 ----
  3080.   
  3081.             if (! error_state)
  3082.           {
  3083. ! #ifdef __EMX__
  3084. !           volatile octave_interrupt_handler saved_interrupt_handler
  3085. !             = octave_ignore_interrupts ();
  3086.   
  3087. +           volatile sig_handler *saved_sigchld_handler
  3088. +             = octave_set_signal_handler (SIGCHLD, SIG_IGN);
  3089. + #endif
  3090. +           pid_t status = waitpid (pid, 0, options);
  3091. + #ifdef __EMX__
  3092. +           octave_set_interrupt_handler (saved_interrupt_handler);
  3093. +           octave_set_signal_handler (SIGCHLD, saved_sigchld_handler);
  3094. + #endif
  3095.             retval(0) = (double) status;
  3096.   
  3097.             if (status < 0)
  3098. diff -cwr g:/project/C/octave-2.09.orig/src/sysdep.cc g:/project/C/octave-2.09/src/sysdep.cc
  3099. *** g:/project/C/octave-2.09.orig/src/sysdep.cc    Thu Jul 10 15:57:24 1997
  3100. --- g:/project/C/octave-2.09/src/sysdep.cc    Thu Jul 10 16:23:40 1997
  3101. ***************
  3102. *** 28,33 ****
  3103. --- 28,35 ----
  3104.   
  3105.   */
  3106.   
  3107. + /* Modified by Klaus Gebhardt, 1996 */
  3108. + 
  3109.   #ifdef HAVE_CONFIG_H
  3110.   #include <config.h>
  3111.   #endif
  3112. ***************
  3113. *** 59,64 ****
  3114. --- 61,71 ----
  3115.   LOSE! LOSE!
  3116.   #endif
  3117.   
  3118. + #ifdef __EMX__
  3119. + #include <float.h>
  3120. + #include <sys/uflags.h>
  3121. + #endif
  3122. + 
  3123.   #if defined (HAVE_FLOATINGPOINT_H)
  3124.   #include <floatingpoint.h>
  3125.   #endif
  3126. ***************
  3127. *** 71,83 ****
  3128.   #include <sys/utsname.h>
  3129.   #endif
  3130.   
  3131.   #if defined (USE_READLINE)
  3132.   #include <readline/readline.h>
  3133.   #include <readline/tilde.h>
  3134.   #endif
  3135. - 
  3136.   extern char *term_clrpag;
  3137.   extern "C" void _rl_output_character_function ();
  3138.   
  3139.   #include "mach-info.h"
  3140.   #include "oct-math.h"
  3141. --- 78,101 ----
  3142.   #include <sys/utsname.h>
  3143.   #endif
  3144.   
  3145. + #ifndef __EMX__
  3146.   #if defined (USE_READLINE)
  3147.   #include <readline/readline.h>
  3148.   #include <readline/tilde.h>
  3149.   #endif
  3150.   extern char *term_clrpag;
  3151.   extern "C" void _rl_output_character_function ();
  3152. + #else
  3153. + #include <readline/readline.h>
  3154. + #include <readline/tilde.h>
  3155. + #include <sys/ioctl.h>
  3156. + extern "C"
  3157. + {
  3158. +   extern void tputs ();
  3159. +   extern char *term_clrpag;
  3160. +   extern void _rl_output_character_function ();
  3161. + }
  3162. + #endif
  3163.   
  3164.   #include "mach-info.h"
  3165.   #include "oct-math.h"
  3166. ***************
  3167. *** 88,93 ****
  3168. --- 106,112 ----
  3169.   #include "input.h"
  3170.   #include "mappers.h"
  3171.   #include "oct-obj.h"
  3172. + #include "pager.h"
  3173.   #include "pathlen.h"
  3174.   #include "ov.h"
  3175.   #include "sysdep.h"
  3176. ***************
  3177. *** 139,144 ****
  3178. --- 158,165 ----
  3179.   {
  3180.     _control87 ((EM_INVALID | EM_DENORMAL | EM_ZERODIVIDE | EM_OVERFLOW
  3181.              | EM_UNDERFLOW | EM_INEXACT), MCW_EM);
  3182. + 
  3183. +   _uflags (_UF_SBRK_MODEL, _UF_SBRK_ARBITRARY);
  3184.   }
  3185.   #endif
  3186.   
  3187. ***************
  3188. *** 325,330 ****
  3189. --- 346,352 ----
  3190.   kbhit (void)
  3191.   {
  3192.     int c;
  3193. +   flush_octave_stdout ();
  3194.     raw_mode (1);
  3195.     c = cin.get ();
  3196.     raw_mode (0);
  3197. ***************
  3198. *** 469,475 ****
  3199.   
  3200.     // XXX FIXME XXX -- add timeout and default value args?
  3201.   
  3202. !   if (interactive)
  3203.       {
  3204.         int c = kbhit ();
  3205.         char *s = new char [2];
  3206. --- 491,497 ----
  3207.   
  3208.     // XXX FIXME XXX -- add timeout and default value args?
  3209.   
  3210. !   if (interactive || really_forced_interactive)
  3211.       {
  3212.         int c = kbhit ();
  3213.         char *s = new char [2];
  3214. ***************
  3215. *** 565,570 ****
  3216. --- 587,597 ----
  3217.   
  3218.             if (delay > 0)
  3219.           usleep (delay);
  3220. + #elif defined (HAVE__SLEEP2)
  3221. +           int delay = NINT (dval / 1e3);
  3222. + 
  3223. +           if (delay > 0)
  3224. +         _sleep2 (delay);
  3225.   #else
  3226.             int delay = NINT (dval / 1e6);
  3227.   
  3228. ***************
  3229. *** 678,683 ****
  3230. --- 705,731 ----
  3231.   
  3232.   DEFALIAS (EXTPROC, extproc);
  3233.   
  3234. + DEFUN (add_to_command_number, args, ,
  3235. +        "add_to_command_number: add argument to the current command number")
  3236. + {
  3237. +   octave_value_list retval;
  3238. +   int nargin;
  3239. + 
  3240. +   if ((nargin = args.length ()) != 1)
  3241. +     {
  3242. +       print_usage ("add_to_command_number");
  3243. +       return retval;
  3244. +     }
  3245. + 
  3246. +   double tmp_d = args(0).double_value ();
  3247. + 
  3248. +   if (error_state || ((int) tmp_d != tmp_d))
  3249. +     error ("add_to_command_number: expecting integer as argument");
  3250. +   else
  3251. +     current_command_number += (int) tmp_d;
  3252. + 
  3253. +   return retval;
  3254. + }
  3255.   #endif
  3256.   
  3257.   /*
  3258. diff -cwr g:/project/C/octave-2.09.orig/src/toplev.cc g:/project/C/octave-2.09/src/toplev.cc
  3259. *** g:/project/C/octave-2.09.orig/src/toplev.cc    Wed Jun 25 14:59:32 1997
  3260. --- g:/project/C/octave-2.09/src/toplev.cc    Wed Jun 25 15:29:44 1997
  3261. ***************
  3262. *** 20,25 ****
  3263. --- 20,27 ----
  3264.   
  3265.   */
  3266.   
  3267. + /* Modified by Klaus Gebhardt, 1996 - 1997 */
  3268. + 
  3269.   #ifdef HAVE_CONFIG_H
  3270.   #include <config.h>
  3271.   #endif
  3272. ***************
  3273. *** 77,82 ****
  3274. --- 79,92 ----
  3275.   #include "variables.h"
  3276.   #include <version.h>
  3277.   
  3278. + #ifdef __EMX__
  3279. + extern "C"
  3280. + {
  3281. + #include <process.h>
  3282. +   int _IO_system (const char *, int);
  3283. + }
  3284. + #endif
  3285. + 
  3286.   // argv[0] for this program.
  3287.   string Vprogram_invocation_name;
  3288.   
  3289. ***************
  3290. *** 142,147 ****
  3291. --- 152,162 ----
  3292.   void
  3293.   parse_and_execute (FILE *f, int print)
  3294.   {
  3295. +   volatile octave_interrupt_handler old_interrupt_handler
  3296. +     = octave_ignore_interrupts ();
  3297. + 
  3298. +   volatile jmp_buf old_toplevel = toplevel;
  3299. + 
  3300.     begin_unwind_frame ("parse_and_execute");
  3301.   
  3302.     YY_BUFFER_STATE old_buf = current_buffer ();
  3303. ***************
  3304. *** 160,165 ****
  3305. --- 175,184 ----
  3306.   
  3307.     unwind_protect_ptr (curr_sym_tab);
  3308.   
  3309. +   if (setjmp(toplevel) == 0)
  3310. +     {
  3311. +       octave_set_interrupt_handler (old_interrupt_handler);
  3312. + 
  3313.         int retval;
  3314.         do
  3315.       {
  3316. ***************
  3317. *** 196,203 ****
  3318. --- 215,228 ----
  3319.           }
  3320.       }
  3321.         while (retval == 0);
  3322. +     }
  3323. +   else  error ("script executing interrupted ...");
  3324.   
  3325.     run_unwind_frame ("parse_and_execute");
  3326. + 
  3327. +   octave_ignore_interrupts ();
  3328. +   toplevel = old_toplevel;
  3329. +   octave_set_interrupt_handler (old_interrupt_handler);
  3330.   }
  3331.   
  3332.   static void
  3333. ***************
  3334. *** 211,216 ****
  3335. --- 236,244 ----
  3336.   parse_and_execute (const string& s, int print, int verbose,
  3337.              const char *warn_for)
  3338.   {
  3339. +   volatile octave_interrupt_handler old_interrupt_handler
  3340. +     = octave_ignore_interrupts ();
  3341. + 
  3342.     begin_unwind_frame ("parse_and_execute_2");
  3343.   
  3344.     unwind_protect_int (reading_script_file);
  3345. ***************
  3346. *** 247,252 ****
  3347. --- 275,282 ----
  3348.       error ("%s: unable to open file `%s'", warn_for, s.c_str ());
  3349.   
  3350.     run_unwind_frame ("parse_and_execute_2");
  3351. + 
  3352. +   octave_set_interrupt_handler (old_interrupt_handler);
  3353.   }
  3354.   
  3355.   int
  3356. ***************
  3357. *** 258,263 ****
  3358. --- 288,297 ----
  3359.   
  3360.     if (setjmp (toplevel) != 0)
  3361.       {
  3362. + #if defined (__EMX__) && defined (OS2)
  3363. +       run_all_unwind_protects ();
  3364. + #endif
  3365. + 
  3366.         raw_mode (0);
  3367.   
  3368.         cout << "\n";
  3369. ***************
  3370. *** 274,279 ****
  3371. --- 308,318 ----
  3372.     int retval;
  3373.     do
  3374.       {
  3375. + #ifdef __EMX__
  3376. +       can_interrupt = 1;
  3377. +       octave_catch_interrupts ();
  3378. + #endif
  3379. + 
  3380.         curr_sym_tab = top_level_sym_tab;
  3381.   
  3382.         reset_parser ();
  3383. ***************
  3384. *** 288,294 ****
  3385.   
  3386.         global_command = 0;
  3387.   
  3388. !       if (! (interactive || forced_interactive))
  3389.           {
  3390.             bool quit = (returning || breaking);
  3391.   
  3392. --- 327,334 ----
  3393.   
  3394.         global_command = 0;
  3395.   
  3396. !       if (! (interactive || forced_interactive
  3397. !          || really_forced_interactive))
  3398.           {
  3399.             bool quit = (returning || breaking);
  3400.   
  3401. ***************
  3402. *** 304,310 ****
  3403.   
  3404.         if (error_state)
  3405.           {
  3406. !           if (! (interactive || forced_interactive))
  3407.           break;
  3408.           }
  3409.         else
  3410. --- 344,351 ----
  3411.   
  3412.         if (error_state)
  3413.           {
  3414. !           if (! (interactive || forced_interactive
  3415. !              || really_forced_interactive))
  3416.           break;
  3417.           }
  3418.           else
  3419. ***************
  3420. *** 372,383 ****
  3421.   
  3422.     cleanup_tmp_files ();
  3423.   
  3424. !   if (!quitting_gracefully && (interactive || forced_interactive))
  3425.       cout << "\n";
  3426.   
  3427.     if (retval == EOF)
  3428.       retval = 0;
  3429.   
  3430.     exit (retval);
  3431.   
  3432.     // This is bogus but should prevent g++ from giving a warning saying
  3433. --- 413,429 ----
  3434.   
  3435.     cleanup_tmp_files ();
  3436.   
  3437. !   if (!quitting_gracefully &&
  3438. !       (interactive || forced_interactive || really_forced_interactive))
  3439.       cout << "\n";
  3440.   
  3441.     if (retval == EOF)
  3442.       retval = 0;
  3443.   
  3444. + #if defined (__EMX__)
  3445. +   _sleep2 (500);
  3446. + #endif
  3447. + 
  3448.     exit (retval);
  3449.   
  3450.     // This is bogus but should prevent g++ from giving a warning saying
  3451. ***************
  3452. *** 582,588 ****
  3453.   
  3454.     octave_value_list tmp = eval_string (s, print, parse_status, 1);
  3455.   
  3456. -   if (tmp.length () > 0)
  3457.       retval = tmp(0);
  3458.   
  3459.     return retval;
  3460. --- 628,633 ----
  3461. ***************
  3462. *** 762,768 ****
  3463. --- 807,817 ----
  3464.   
  3465.         string cmd_str = args(0).string_value ();
  3466.   
  3467. + #if defined (__EMX__) && defined (OS2)
  3468. +       enum exec_type { sync, async, pm };
  3469. + #else
  3470.         enum exec_type { sync, async };
  3471. + #endif
  3472.   
  3473.         exec_type type = sync;
  3474.   
  3475. ***************
  3476. *** 778,785 ****
  3477. --- 827,842 ----
  3478.               type = sync;
  3479.             else if (type_str == "async")
  3480.               type = async;
  3481. + #if defined (__EMX__) && defined (OS2)
  3482. +           else if (type_str == "pm")
  3483. +             type = pm;
  3484. +           else
  3485. +             error ("system: third arg must be \"sync\" , \"async\""
  3486. +                "or \"pm\"");
  3487. + #else
  3488.             else
  3489.               error ("system: third arg must be \"sync\" or \"async\"");
  3490. + #endif
  3491.           }
  3492.             else
  3493.           error ("system: third argument must be a string");
  3494. ***************
  3495. *** 790,797 ****
  3496. --- 847,859 ----
  3497.   
  3498.         if (! error_state)
  3499.       {
  3500. + #if defined (__EMX__) && defined (OS2)
  3501. +       if (type == async || type == pm)
  3502. + #else
  3503.         if (type == async)
  3504. + #endif
  3505.           {
  3506. + #ifndef __EMX__
  3507.             pid_t pid = fork ();
  3508.   
  3509.             if (pid < 0) 
  3510. ***************
  3511. *** 804,815 ****
  3512. --- 866,897 ----
  3513.           }
  3514.             else
  3515.           retval(0) = (double) pid;
  3516. + #else
  3517. +           pid_t pid;
  3518. +           int p_mode;
  3519. + #ifdef OS2
  3520. +           if (type == pm)  p_mode = P_PM;
  3521. +           else             p_mode = P_NOWAIT;
  3522. + #else
  3523. +           p_mode = P_NOWAIT;
  3524. + #endif
  3525. +           pid = _IO_system (cmd_str.c_str (), p_mode);
  3526. + 
  3527. +           if (pid < 0)
  3528. +         error ("system: spawn failed -- can't create child process");
  3529. +           else
  3530. +         retval(0) = (double) pid;
  3531. + #endif
  3532.           }
  3533.         else if (return_output)
  3534.           retval = run_command_and_return_output (cmd_str);
  3535.         else
  3536.           {
  3537. + #ifdef __EMX__
  3538. +            int status = _IO_system (cmd_str.c_str (), P_WAIT);
  3539. + #else
  3540.             int status = system (cmd_str.c_str ());
  3541. + #endif
  3542.   
  3543.             // The value in status is as returned by waitpid.  If
  3544.             // the process exited normally, extract the actual exit
  3545. ***************
  3546. *** 831,839 ****
  3547.   
  3548.   DEFALIAS (shell_cmd, system);
  3549.   
  3550. ! // XXX FIXME XXX -- this should really be static, but that causes
  3551. ! // problems on some systems.
  3552. ! SLStack<string> octave_atexit_functions;
  3553.   
  3554.   void
  3555.   do_octave_atexit (void)
  3556. --- 913,919 ----
  3557.   
  3558.   DEFALIAS (shell_cmd, system);
  3559.   
  3560. ! static SLStack<string> octave_atexit_functions;
  3561.   
  3562.   void
  3563.   do_octave_atexit (void)
  3564. diff -cwr g:/project/C/octave-2.09.orig/src/utils.cc g:/project/C/octave-2.09/src/utils.cc
  3565. *** g:/project/C/octave-2.09.orig/src/utils.cc    Thu Jul 10 15:57:24 1997
  3566. --- g:/project/C/octave-2.09/src/utils.cc    Thu Jul 10 16:23:40 1997
  3567. ***************
  3568. *** 20,25 ****
  3569. --- 20,27 ----
  3570.   
  3571.   */
  3572.   
  3573. + /* Modified by Klaus Gebhardt, 1996 */
  3574. + 
  3575.   #ifdef HAVE_CONFIG_H
  3576.   #include <config.h>
  3577.   #endif
  3578. ***************
  3579. *** 102,108 ****
  3580. --- 104,112 ----
  3581.   extern "C" void
  3582.   jump_to_top_level (void)
  3583.   {
  3584. + #if ! defined (__EMX__) || ! defined (OS2)
  3585.     run_all_unwind_protects ();
  3586. + #endif
  3587.   
  3588.     longjmp (toplevel, 1);
  3589.   }
  3590. diff -cwr g:/project/C/octave-2.09.orig/src/variables.cc g:/project/C/octave-2.09/src/variables.cc
  3591. *** g:/project/C/octave-2.09.orig/src/variables.cc    Wed May 28 03:39:32 1997
  3592. --- g:/project/C/octave-2.09/src/variables.cc    Mon May 26 18:24:16 1997
  3593. ***************
  3594. *** 20,25 ****
  3595. --- 20,27 ----
  3596.   
  3597.   */
  3598.   
  3599. + /* Modified by Klaus Gebhardt, 1996 */
  3600. + 
  3601.   #ifdef HAVE_CONFIG_H
  3602.   #include <config.h>
  3603.   #endif
  3604. ***************
  3605. *** 487,496 ****
  3606.         if (! have_help_text)
  3607.           {
  3608.             first_comments_seen = true;
  3609. !           help_txt += (char) c;
  3610.           }
  3611.   
  3612. !       if (c == '\n')
  3613.           {
  3614.             if (update_pos)
  3615.           {
  3616. --- 489,510 ----
  3617.         if (! have_help_text)
  3618.           {
  3619.             first_comments_seen = true;
  3620. !           if (c == '\r')
  3621. !         {
  3622. !           int d = getc (ffile);
  3623. !           if (c != '\n' && c != '\r' && c != '')
  3624. !             help_txt += (char) '\n';
  3625. ! #if defined (EMX09C)
  3626. !           fseek (ffile, -1l, SEEK_CUR);
  3627. ! #else
  3628. !           ungetc (d, ffile);
  3629. ! #endif
  3630. !         }
  3631. !           else if (c == '')  help_txt += (char) '\n';
  3632. !           else                 help_txt += (char) c;
  3633.           }
  3634.   
  3635. !       if (c == '\n' || c == '')
  3636.           {
  3637.             if (update_pos)
  3638.           {
  3639. ***************
  3640. *** 505,512 ****
  3641.               {
  3642.                 if (update_pos)
  3643.               current_input_column--;
  3644.                 ungetc (c, ffile);
  3645. !               if (c == '\n')
  3646.               break;
  3647.               }
  3648.             else
  3649. --- 519,530 ----
  3650.               {
  3651.                 if (update_pos)
  3652.               current_input_column--;
  3653. + #if defined (EMX09C)
  3654. +               fseek (ffile, -1l, SEEK_CUR);
  3655. + #else
  3656.                 ungetc (c, ffile);
  3657. ! #endif
  3658. !               if (c == '\n' || c == '\r' || c == '')
  3659.               break;
  3660.               }
  3661.             else
  3662. ***************
  3663. *** 524,529 ****
  3664. --- 542,553 ----
  3665.           have_help_text = true;
  3666.             break;
  3667.   
  3668. +         case '\r':
  3669. +           if (first_comments_seen)  have_help_text = true;
  3670. +           if (update_pos)           current_input_column = 0;
  3671. +           continue;
  3672. + 
  3673. +         case '':
  3674.           case '\n':
  3675.             if (first_comments_seen)
  3676.           have_help_text = true;
  3677. ***************
  3678. *** 543,549 ****
  3679. --- 567,577 ----
  3680.           default:
  3681.             if (update_pos)
  3682.           current_input_column--;
  3683. + #if defined (EMX09C)
  3684. +           fseek (ffile, -1l, SEEK_CUR);
  3685. + #else
  3686.             ungetc (c, ffile);
  3687. + #endif
  3688.             goto done;
  3689.           }
  3690.       }
  3691. ***************
  3692. *** 791,797 ****
  3693.   
  3694.     if (! path.empty ())
  3695.       {
  3696. !       FILE *fptr = fopen (path.c_str (), "r");
  3697.   
  3698.         if (fptr)
  3699.       {
  3700. --- 819,825 ----
  3701.   
  3702.     if (! path.empty ())
  3703.       {
  3704. !       FILE *fptr = fopen (path.c_str (), "rb");
  3705.   
  3706.         if (fptr)
  3707.       {
  3708. diff -cwr g:/project/C/octave-2.09.orig/src/version.h g:/project/C/octave-2.09/src/version.h
  3709. *** g:/project/C/octave-2.09.orig/src/version.h    Thu Jul 10 15:57:24 1997
  3710. --- g:/project/C/octave-2.09/src/version.h    Fri Jul 18 01:22:28 1997
  3711. ***************
  3712. *** 20,25 ****
  3713. --- 20,47 ----
  3714.   
  3715.   */
  3716.   
  3717. + /* Modified by Klaus Gebhardt, 1996 */
  3718. + 
  3719. + #if defined (__EMX__) && defined (OS2)
  3720. + #define OCTAVE_VERSION "2.0.9"
  3721. + #define OCTAVE_OS2_PATCHLEVEL "2.09-b03"
  3722. + 
  3723. + #define OCTAVE_COPYRIGHT \
  3724. + "Copyright (C) 1996, 1997 John W. Eaton.\n\
  3725. + OS/2-Port by Klaus Gebhardt, 1996 - 1997."
  3726. + 
  3727. + #define OCTAVE_NAME_AND_VERSION \
  3728. + "Octave " OCTAVE_VERSION " for OS/2 2.x, Warp 3 and Warp 4.\n(Patchlevel " \
  3729. + OCTAVE_OS2_PATCHLEVEL ")"
  3730. + 
  3731. + #define OCTAVE_NAME_VERSION_AND_COPYRIGHT \
  3732. +   OCTAVE_NAME_AND_VERSION ".\n" OCTAVE_COPYRIGHT "\n\
  3733. + This is free software with ABSOLUTELY NO WARRANTY."
  3734. + 
  3735. + #define OCTAVE_STARTUP_MESSAGE \
  3736. +   OCTAVE_NAME_VERSION_AND_COPYRIGHT "\n\
  3737. + For details, type `warranty'."
  3738. + #else
  3739.   #define OCTAVE_VERSION "2.0.9"
  3740.   
  3741.   #define OCTAVE_COPYRIGHT \
  3742. ***************
  3743. *** 35,41 ****
  3744.   #define OCTAVE_STARTUP_MESSAGE \
  3745.     OCTAVE_NAME_VERSION_AND_COPYRIGHT "\n\
  3746.   For details, type `warranty'."
  3747. ! 
  3748.   /*
  3749.   ;;; Local Variables: ***
  3750.   ;;; mode: C++ ***
  3751. --- 57,63 ----
  3752.   #define OCTAVE_STARTUP_MESSAGE \
  3753.     OCTAVE_NAME_VERSION_AND_COPYRIGHT "\n\
  3754.   For details, type `warranty'."
  3755. ! #endif
  3756.   /*
  3757.   ;;; Local Variables: ***
  3758.   ;;; mode: C++ ***
  3759. diff -cwr g:/project/C/octave-2.09.orig/src/y.tab.h g:/project/C/octave-2.09/src/y.tab.h
  3760. *** g:/project/C/octave-2.09.orig/src/y.tab.h    Tue Dec 10 08:54:26 1996
  3761. --- g:/project/C/octave-2.09/src/y.tab.h    Wed Aug 20 18:08:14 1997
  3762. ***************
  3763. *** 21,26 ****
  3764. --- 21,29 ----
  3765.     tree_if_command *tree_if_command_type;
  3766.     tree_if_clause *tree_if_clause_type;
  3767.     tree_if_command_list *tree_if_command_list_type;
  3768. +   tree_switch_command *tree_switch_command_type;
  3769. +   tree_switch_case *tree_switch_case_type;
  3770. +   tree_switch_case_list *tree_switch_case_list_type;
  3771.     tree_global *tree_global_type;
  3772.     tree_global_init_list *tree_global_init_list_type;
  3773.     tree_global_command *tree_global_command_type;
  3774. ***************
  3775. *** 70,98 ****
  3776.   #define    IF    291
  3777.   #define    ELSEIF    292
  3778.   #define    ELSE    293
  3779. ! #define    BREAK    294
  3780. ! #define    CONTINUE    295
  3781. ! #define    FUNC_RET    296
  3782. ! #define    UNWIND    297
  3783. ! #define    CLEANUP    298
  3784. ! #define    TRY    299
  3785. ! #define    CATCH    300
  3786. ! #define    GLOBAL    301
  3787. ! #define    TEXT_ID    302
  3788. ! #define    LEXICAL_ERROR    303
  3789. ! #define    FCN    304
  3790. ! #define    SCREW_TWO    305
  3791. ! #define    ELLIPSIS    306
  3792. ! #define    ALL_VA_ARGS    307
  3793. ! #define    END_OF_INPUT    308
  3794. ! #define    USING    309
  3795. ! #define    TITLE    310
  3796. ! #define    WITH    311
  3797. ! #define    COLON    312
  3798. ! #define    OPEN_BRACE    313
  3799. ! #define    CLOSE_BRACE    314
  3800. ! #define    CLEAR    315
  3801. ! #define    UNARY    316
  3802.   
  3803.   
  3804.   extern YYSTYPE yylval;
  3805. --- 73,104 ----
  3806.   #define    IF    291
  3807.   #define    ELSEIF    292
  3808.   #define    ELSE    293
  3809. ! #define    SWITCH    294
  3810. ! #define    CASE    295
  3811. ! #define    OTHERWISE    296
  3812. ! #define    BREAK    297
  3813. ! #define    CONTINUE    298
  3814. ! #define    FUNC_RET    299
  3815. ! #define    UNWIND    300
  3816. ! #define    CLEANUP    301
  3817. ! #define    TRY    302
  3818. ! #define    CATCH    303
  3819. ! #define    GLOBAL    304
  3820. ! #define    TEXT_ID    305
  3821. ! #define    LEXICAL_ERROR    306
  3822. ! #define    FCN    307
  3823. ! #define    SCREW_TWO    308
  3824. ! #define    ELLIPSIS    309
  3825. ! #define    ALL_VA_ARGS    310
  3826. ! #define    END_OF_INPUT    311
  3827. ! #define    USING    312
  3828. ! #define    TITLE    313
  3829. ! #define    WITH    314
  3830. ! #define    COLON    315
  3831. ! #define    OPEN_BRACE    316
  3832. ! #define    CLOSE_BRACE    317
  3833. ! #define    CLEAR    318
  3834. ! #define    UNARY    319
  3835.   
  3836.   
  3837.   extern YYSTYPE yylval;
  3838. diff -cwr g:/project/C/octave-2.09.orig/scripts/image/image.m g:/project/C/octave-2.09/scripts/image/image.m
  3839. *** g:/project/C/octave-2.09.orig/scripts/image/image.m    Sun Nov  3 06:52:00 1996
  3840. --- g:/project/C/octave-2.09/scripts/image/image.m    Mon Mar 10 00:53:24 1997
  3841. ***************
  3842. *** 19,66 ****
  3843.   
  3844.   ## Display an octave image matrix.
  3845.   ##
  3846. ! ## image (x) displays a matrix as a color image. The elements of x are
  3847.   ## indices into the current colormap and should have values between 1
  3848.   ## and the length of the colormap.
  3849.   ##
  3850. - ## image (x, zoom) changes the zoom factor.  The default value is 4.
  3851. - ##
  3852.   ## SEE ALSO: imshow, imagesc, colormap.
  3853.   
  3854.   ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  3855.   ## Created: July 1994
  3856.   ## Adapted-By: jwe
  3857.   
  3858.   function image (x, zoom)
  3859.   
  3860.     if (nargin == 0)
  3861.       ## Load Bobbie Jo Richardson (Born 3/16/94)
  3862. !     x = loadimage ("default.img");
  3863. !     zoom = 2;
  3864.     elseif (nargin == 1)
  3865. !     zoom = 4;
  3866.     elseif (nargin > 2)
  3867.       usage ("image (matrix, [zoom])");
  3868.     endif
  3869.   
  3870. !   ppm_name = tmpnam ();
  3871. ! 
  3872. !   saveimage (ppm_name, x, "ppm");
  3873. ! 
  3874. !   ## Start the viewer.  Try xv, then xloadimage.
  3875. ! 
  3876. !   xv = sprintf ("xv -expand %f %s", zoom, ppm_name);
  3877. ! 
  3878. !   xloadimage = sprintf ("xloadimage -zoom %f %s", zoom*100, ppm_name);
  3879. ! 
  3880. !   rm = sprintf ("rm -f %s", ppm_name);
  3881.   
  3882. !   ## Need to let the shell clean up the tmp file because we are putting
  3883. !   ## the viewer in the background.
  3884.   
  3885. !   command = sprintf ("( %s || %s && %s ) > /dev/null 2>&1 &",
  3886. !              xv, xloadimage, rm);
  3887.   
  3888. !   system (command);
  3889.   
  3890.   endfunction
  3891. --- 19,54 ----
  3892.   
  3893.   ## Display an octave image matrix.
  3894.   ##
  3895. ! ## image (x[, map]) displays a matrix as a color image. The elements of x are
  3896.   ## indices into the current colormap and should have values between 1
  3897.   ## and the length of the colormap.
  3898.   ##
  3899.   ## SEE ALSO: imshow, imagesc, colormap.
  3900.   
  3901.   ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  3902.   ## Created: July 1994
  3903.   ## Adapted-By: jwe
  3904. + ## Modified by Klaus Gebhardt, 1996 - 1997
  3905.   
  3906.   function image (x, zoom)
  3907.   
  3908.     if (nargin == 0)
  3909.       ## Load Bobbie Jo Richardson (Born 3/16/94)
  3910. !     [x, map] = loadimage ("default.img");
  3911.     elseif (nargin == 1)
  3912. !     zoom = 1;
  3913.     elseif (nargin > 2)
  3914.       usage ("image (matrix, [zoom])");
  3915.     endif
  3916.   
  3917. !   pnm_name = tmpnam ();
  3918.   
  3919. !   saveimage (pnm_name, x, "pnm");
  3920.   
  3921. !   ## Start the viewer.
  3922. !   i = findstr (pnm_name, "/");
  3923. !   pnm_name (i) = "\\";
  3924.   
  3925. !   system (sprintf ("oct-view %s %f", pnm_name, zoom));
  3926.   
  3927.   endfunction
  3928. diff -cwr g:/project/C/octave-2.09.orig/scripts/image/loadimage.m g:/project/C/octave-2.09/scripts/image/loadimage.m
  3929. *** g:/project/C/octave-2.09.orig/scripts/image/loadimage.m    Wed May 28 03:35:58 1997
  3930. --- g:/project/C/octave-2.09/scripts/image/loadimage.m    Sun Jan 26 02:13:52 1997
  3931. ***************
  3932. *** 1,64 ****
  3933. ! ## Copyright (C) 1996 John W. Eaton
  3934.   ##
  3935. - ## This file is part of Octave.
  3936. - ##
  3937. - ## Octave is free software; you can redistribute it and/or modify it
  3938. - ## under the terms of the GNU General Public License as published by
  3939. - ## the Free Software Foundation; either version 2, or (at your option)
  3940. - ## any later version.
  3941. - ##
  3942. - ## Octave is distributed in the hope that it will be useful, but
  3943. - ## WITHOUT ANY WARRANTY; without even the implied warranty of
  3944. - ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  3945. - ## General Public License for more details.
  3946. - ##
  3947. - ## You should have received a copy of the GNU General Public License
  3948. - ## along with Octave; see the file COPYING.  If not, write to the Free
  3949. - ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  3950. - ## 02111-1307, USA.
  3951. - 
  3952.   ## Load an image file.
  3953.   ##
  3954. ! ## [img, map] = loadimage (img_file) loads an image and it's associated
  3955. ! ## color map from file img_file.  The image must be in stored in
  3956. ! ## octave's image format.
  3957.   ##
  3958.   ## SEE ALSO: saveimage, load, save
  3959.   
  3960. ! ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  3961. ! ## Created: July 1994
  3962. ! ## Adapted-By: jwe
  3963.   
  3964. ! function [img_retval, map_retval] = loadimage (filename)
  3965.   
  3966. !   if (nargin != 1)
  3967. !     usage ("[img, map] = loadimage (filename)");
  3968.     elseif (! isstr (filename))
  3969.       error ("loadimage: expecting filename as a string");
  3970.     endif
  3971.   
  3972. !   file = file_in_path (IMAGEPATH, filename);
  3973. ! 
  3974. !   if (isempty (file))
  3975. !     error ("loadimage: unable to find image file");
  3976.     endif
  3977.   
  3978. !   ## The file is assumed to have variables img and map, or X and map.
  3979.   
  3980. !   eval (['load ', file]);
  3981.   
  3982. !   if (exist ("img"))
  3983. !     img_retval = img;
  3984. !   elseif (exist ("X"))
  3985. !     img_retval = X;
  3986. !   else
  3987. !     error ("loadimage: invalid image file found");
  3988.     endif
  3989.   
  3990. !   if (exist ("map"))
  3991. !     map_retval = map;
  3992. !   else
  3993. !     error ("loadimage: invalid image file found");
  3994. !   endif
  3995.   
  3996.   endfunction
  3997. --- 1,37 ----
  3998. ! ## Copyright (C) 1996 Klaus Gebhardt
  3999.   ##
  4000.   ## Load an image file.
  4001.   ##
  4002. ! ## [X, map] = loadimage (img_file, fmt) loads an image and its associated
  4003. ! ## color map from file img_file.
  4004.   ##
  4005.   ## SEE ALSO: saveimage, load, save
  4006.   
  4007. ! ## Author: Klaus Gebhardt <gebhardt@crunch.ikp.physik.th-darmstadt.de>
  4008. ! ## Created: November 1996
  4009.   
  4010. ! function [X, map] = loadimage (filename, fmt)
  4011.   
  4012. !   if (nargin != 1 && nargin != 2)
  4013. !     usage ("loadimage (filename[, fmt])");
  4014.     elseif (! isstr (filename))
  4015.       error ("loadimage: expecting filename as a string");
  4016.     endif
  4017.   
  4018. !   if (nargin == 1)
  4019. !     fmt = "img";
  4020.     endif
  4021.   
  4022. !   if (! isstr (fmt))
  4023. !     error ("loadimage: expecting fmt as a string");
  4024. !   endif
  4025.   
  4026. !   file = file_in_path (IMAGEPATH, filename);
  4027.   
  4028. !   if (isempty (file))
  4029. !     error ("loadimage: unable to find image file");
  4030.     endif
  4031.   
  4032. !   eval (sprintf ("[X, map] = %s_dec (file);", fmt));
  4033.   
  4034.   endfunction
  4035. diff -cwr g:/project/C/octave-2.09.orig/scripts/image/saveimage.m g:/project/C/octave-2.09/scripts/image/saveimage.m
  4036. *** g:/project/C/octave-2.09.orig/scripts/image/saveimage.m    Wed May 28 03:35:58 1997
  4037. --- g:/project/C/octave-2.09/scripts/image/saveimage.m    Tue Jan 28 22:59:44 1997
  4038. ***************
  4039. *** 1,101 ****
  4040. ! ## Copyright (C) 1996 John W. Eaton
  4041.   ##
  4042. - ## This file is part of Octave.
  4043. - ##
  4044. - ## Octave is free software; you can redistribute it and/or modify it
  4045. - ## under the terms of the GNU General Public License as published by
  4046. - ## the Free Software Foundation; either version 2, or (at your option)
  4047. - ## any later version.
  4048. - ##
  4049. - ## Octave is distributed in the hope that it will be useful, but
  4050. - ## WITHOUT ANY WARRANTY; without even the implied warranty of
  4051. - ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  4052. - ## General Public License for more details.
  4053. - ##
  4054. - ## You should have received a copy of the GNU General Public License
  4055. - ## along with Octave; see the file COPYING.  If not, write to the Free
  4056. - ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  4057. - ## 02111-1307, USA.
  4058. - 
  4059.   ## Save a matrix to disk in image format.
  4060.   ##
  4061. ! ## saveimage (filename, x) saves matrix x to file filename in octave's
  4062.   ## image format.  The current colormap is saved in the file also.
  4063.   ##
  4064. - ## saveimage (filename, x, "img") saves the image in the default format
  4065. - ## and is the same as saveimage (filename, x).
  4066. - ##
  4067. - ## saveimage (filename, x, "ppm") saves the image in ppm format instead
  4068. - ## of the default octave image format.
  4069. - ##
  4070. - ## saveimage (filename, x, "ps") saves the image in PostScript format
  4071. - ## instead of the default octave image format. (Note: images saved in
  4072. - ## PostScript format can not be read back into octave with loadimage.)
  4073. - ##
  4074.   ## saveimage (filename, x, format, map) saves the image along with the
  4075.   ## specified colormap in the specified format.
  4076.   ##
  4077. - ## Note: If the colormap contains only two entries and these entries
  4078. - ## are black and white, the bitmap ppm and PostScript formats are used.
  4079. - ## If the image is a gray scale image (the entries within each row of
  4080. - ## the colormap are equal) the gray scale ppm and PostScript image
  4081. - ## formats are used, otherwise the full color formats are used.
  4082. - ##
  4083. - ## The conversion to PostScript is based on pbmtolps.c, which was
  4084. - ## written by
  4085. - ##
  4086. - ##   George Phillips <phillips@cs.ubc.ca>
  4087. - ##   Department of Computer Science
  4088. - ##   University of British Columbia
  4089. - ##
  4090. - ## and is part of the portable bitmap utilities,
  4091. - ##
  4092. - ## SEE ALSO: loadimage, save, load, colormap
  4093. - 
  4094. - ## Author: Tony Richardson <amr@mpl.ucsd.edu>
  4095. - ## Created: July 1994
  4096. - ## Adapted-By: jwe
  4097.   
  4098. ! ## Rewritten by jwe to avoid using octoppm and pbm routines so that
  4099. ! ## people who don't have the the pbm stuff installed can still use this
  4100. ! ## function.
  4101. ! ##
  4102. ! ## The conversion to PostScript is based on pnmtops.c, which is part of
  4103. ! ## the portable bitmap utilties and bears this copyright notice:
  4104. ! ##
  4105. ! ## Copyright (C) 1989 by Jef Poskanzer.
  4106. ! ##
  4107. ! ## Permission to use, copy, modify, and distribute this software and its
  4108. ! ## documentation for any purpose and without fee is hereby granted, provided
  4109. ! ## that the above copyright notice appear in all copies and that both that
  4110. ! ## copyright notice and this permission notice appear in supporting
  4111. ! ## documentation.  This software is provided "as is" without express or
  4112. ! ## implied warranty.
  4113.   
  4114. ! function saveimage (filename, img, img_form, map)
  4115.   
  4116. !   if (nargin < 2 || nargin > 4)
  4117. !     usage ("saveimage (filename, matrix, [format, [colormap]])");
  4118.     endif
  4119.   
  4120.     if (nargin < 4)
  4121.       map = colormap ();
  4122.     endif
  4123.   
  4124. -   [map_nr, map_nc] = size (map);
  4125. - 
  4126. -   if (map_nc != 3)
  4127. -     error ("colormap should be an N x 3 matrix");
  4128. -   endif
  4129. - 
  4130.     if (nargin < 3)
  4131.       img_form = "img";
  4132.     elseif (! isstr (img_form))
  4133.       error ("image format specification must be a string");
  4134. -   elseif (! (strcmp (img_form, "img")
  4135. -              || strcmp (img_form, "ppm")
  4136. -          || strcmp (img_form, "ps")))
  4137. -     error ("unsupported image format specification");
  4138.     endif
  4139.   
  4140.     if (! is_matrix (img))
  4141. --- 1,31 ----
  4142. ! ## Copyright (C) 1996 Klaus Gebhardt
  4143.   ##
  4144.   ## Save a matrix to disk in image format.
  4145.   ##
  4146. ! ## saveimage (filename, x) saves matrix x to file filename in octaves
  4147.   ## image format.  The current colormap is saved in the file also.
  4148.   ##
  4149.   ## saveimage (filename, x, format, map) saves the image along with the
  4150.   ## specified colormap in the specified format.
  4151.   ##
  4152.   
  4153. ! ## Author: Klaus Gebhardt <gebhardt@crunch.ikp.physik.th-darmstadt.de>
  4154. ! ## Created: November 1996
  4155.   
  4156. ! function saveimage (filename, img, img_form, map, opt)
  4157.   
  4158. !   if (nargin < 2 || nargin > 5)
  4159. !     usage ("saveimage (filename, matrix, [format, [colormap, [opt]]])");
  4160.     endif
  4161.   
  4162.     if (nargin < 4)
  4163.       map = colormap ();
  4164.     endif
  4165.   
  4166.     if (nargin < 3)
  4167.       img_form = "img";
  4168.     elseif (! isstr (img_form))
  4169.       error ("image format specification must be a string");
  4170.     endif
  4171.   
  4172.     if (! is_matrix (img))
  4173. ***************
  4174. *** 106,301 ****
  4175.       error ("file name must be a string");
  4176.     endif
  4177.   
  4178. !   ## If we just want Octave image format, save and return.
  4179. ! 
  4180. !   if (strcmp (img_form, "img"))
  4181. !     eval (strcat ("save -ascii ", filename, " map img"));
  4182. !     return;
  4183. !   endif
  4184. ! 
  4185. !   ## Convert to another format if requested.
  4186. ! 
  4187. !   grey = all (map(:,1) == map(:,2) && map(:,1) == map (:,3));
  4188. ! 
  4189. !   pbm = pgm = ppm = 0;
  4190. ! 
  4191. !   map_sz = map_nr * map_nc;
  4192. ! 
  4193. !   map = reshape (map, map_sz, 1);
  4194. ! 
  4195. !   idx = find (map > 1);
  4196. !   map (idx) = ones (size (idx));
  4197. ! 
  4198. !   idx = find (map < 0);
  4199. !   map (idx) = zeros (size (idx));
  4200. ! 
  4201. !   map = round (255 * map);
  4202. ! 
  4203. !   bw = (map_nr == 2
  4204. !         && ((map(1,1) == 0 && map(2,1) == 255)
  4205. !             || (map(1,1) == 255 && map(2,1) == 0)));
  4206. ! 
  4207. !   img = round (img');
  4208. !   [img_nr, img_nc] = size (img);
  4209. ! 
  4210. !   img_sz = img_nr * img_nc;
  4211. !   img = reshape (img, img_sz, 1);
  4212. ! 
  4213. !   idx = find (img > map_nr);
  4214. !   img (idx) = ones (size (idx)) * map_nr;
  4215. ! 
  4216. !   idx = find (img <= 0);
  4217. !   img (idx) = ones (size (idx));
  4218. ! 
  4219. !   if (strcmp (img_form, "ppm"))
  4220. !     if (grey && map_nr == 2 && bw)
  4221. ! 
  4222. !       map = map(:,1);
  4223. ! 
  4224. !       if (map(1) != 0)
  4225. !     map(1) = 1;
  4226. !       else
  4227. !     map(2) = 1;
  4228. !       endif
  4229. ! 
  4230. !       img = map(img);
  4231. !       n_long = rem (img_sz, 8);
  4232. !       if (n_long == 0)
  4233. !     n_long = 8;
  4234. !       else
  4235. !     n_long++;
  4236. !       endif
  4237. ! 
  4238. !       idx = 1:8:img_sz;
  4239. !       s_len = length (idx) - 1;
  4240. ! 
  4241. !       tmp = img (1:8:img_sz) * 128;
  4242. !       for i = 2:n_long
  4243. !     tmp = tmp + img (i:8:img_sz) * 2^(8-i);
  4244. !       endfor
  4245. !       for i = (n_long+1):8
  4246. !     tmp(1:s_len) = tmp(1:s_len) + img (i:8:img_sz) * 2^(8-i);
  4247. !       endfor
  4248. ! 
  4249. !       fid = fopen (filename, "w");
  4250. !       fprintf (fid, "P4\n%d %d\n", img_nr, img_nc);
  4251. !       fwrite (fid, tmp, "char");
  4252. !       fprintf (fid, "\n");
  4253. !       fclose (fid);
  4254. ! 
  4255. !     elseif (grey)
  4256. ! 
  4257. !       fid = fopen (filename, "w");
  4258. !       fprintf (fid, "P5\n%d %d\n255\n", img_nr, img_nc);
  4259. !       fwrite (fid, map(img), "uchar");
  4260. !       fprintf (fid, "\n");
  4261. !       fclose (fid);
  4262. ! 
  4263. !     else
  4264. ! 
  4265. !       img_idx = ((1:3:3*img_sz)+2)';
  4266. !       map_idx = ((2*map_nr+1):map_sz)';
  4267. ! 
  4268. !       tmap = map(map_idx);
  4269. !       tmp(img_idx--) = tmap(img);
  4270. ! 
  4271. !       map_idx = map_idx - map_nr;
  4272. !       tmap = map(map_idx);
  4273. !       tmp(img_idx--) = tmap(img);
  4274. ! 
  4275. !       map_idx = map_idx - map_nr;
  4276. !       tmap = map(map_idx);
  4277. !       tmp(img_idx--) = tmap(img);
  4278. ! 
  4279. !       fid = fopen (filename, "w");
  4280. !       fprintf (fid, "P6\n%d %d\n255\n", img_nr, img_nc);
  4281. !       fwrite (fid, tmp, "uchar");
  4282. !       fprintf (fid, "\n");
  4283. !       fclose (fid);
  4284. ! 
  4285. !     endif
  4286. ! 
  4287. !   elseif (strcmp (img_form, "ps") == 1)
  4288. ! 
  4289. !     if (! grey)
  4290. !       error ("must have a greyscale color map for conversion to PostScript");
  4291. !     endif
  4292. ! 
  4293. !     bps = 8;
  4294. !     dpi = 300;
  4295. !     pagewid = 612;
  4296. !     pagehgt = 762;
  4297. !     MARGIN = 0.95;
  4298. !     devpix = dpi / 72.0 + 0.5;
  4299. !     pixfac = 72.0 / dpi * devpix;
  4300. ! 
  4301. !     ## Compute padding to round cols * bps up to the nearest multiple of 8
  4302. !     ## (nr and nc are switched because we transposed the image above).
  4303. ! 
  4304. !     padright = (((img_nr * bps + 7) / 8) * 8 - img_nr * bps) / bps;
  4305. ! 
  4306. !     scols = img_nr * pixfac;
  4307. !     srows = img_nc * pixfac;
  4308. ! 
  4309. !     if (scols > pagewid * MARGIN || srows > pagehgt * MARGIN)
  4310. !       if (scols > pagewid * MARGIN)
  4311. !     scale = scale * (pagewid / scols * MARGIN);
  4312. !     scols = scale * img_nr * pixfac;
  4313. !     srows = scale * img_nc * pixfac;
  4314. !       endif
  4315. !       if (srows > pagehgt * MARGIN)
  4316. !     scale = scale * (pagehgt / srows * MARGIN);
  4317. !     scols = scale * img_nr * pixfac;
  4318. !     srows = scale * img_nc * pixfac;
  4319. !       endif
  4320. !       warning ("image too large for page, rescaling to %g", scale);
  4321. !     endif
  4322. ! 
  4323. !     llx = (pagewid - scols) / 2;
  4324. !     lly = (pagehgt - srows) / 2;
  4325. !     urx = llx + fix (scols + 0.5);
  4326. !     ury = lly + fix (srows + 0.5);
  4327. ! 
  4328. !     fid = fopen (filename, "w");
  4329. ! 
  4330. !     fprintf (fid, "%%!PS-Adobe-2.0 EPSF-2.0\n");
  4331. !     fprintf (fid, "%%%%Creator: Octave %s (saveimage.m)\n", OCTAVE_VERSION);
  4332. !     fprintf (fid, "%%%%Title: %s\n", filename);
  4333. !     fprintf (fid, "%%%%Pages: 1\n");
  4334. !     fprintf (fid, "%%%%BoundingBox: %d %d %d %d\n",
  4335. !              fix (llx), fix (lly), fix (urx), fix (ury));
  4336. !     fprintf (fid, "%%%%EndComments\n" );
  4337. !     fprintf (fid, "/readstring {\n");
  4338. !     fprintf (fid, "  currentfile exch readhexstring pop\n");
  4339. !     fprintf (fid, "} bind def\n");
  4340. !     fprintf (fid, "/picstr %d string def\n",
  4341. !              fix ((img_nr + padright) * bps / 8));
  4342. !     fprintf (fid, "%%%%EndProlog\n");
  4343. !     fprintf (fid, "%%%%Page: 1 1\n");
  4344. !     fprintf (fid, "gsave\n");
  4345. !     fprintf (fid, "%g %g translate\n", llx, lly);
  4346. !     fprintf (fid, "%g %g scale\n", scols, srows);
  4347. !     fprintf (fid, "%d %d %d\n", img_nr, img_nc, bps);
  4348. !     fprintf (fid, "[ %d 0 0 -%d 0 %d ]\n", img_nr, img_nc, img_nc);
  4349. !     fprintf (fid, "{ picstr readstring }\n" );
  4350. !     fprintf (fid, "image\n" );
  4351. ! 
  4352. !     img = map(img);
  4353. ! 
  4354. !     fmt = "%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x\n";
  4355. !     fprintf (fid, fmt, img);
  4356. ! 
  4357. !     if (rem (img_sz, 30) != 0)
  4358. !       fprintf (fid, "\n" );
  4359. !     endif
  4360. ! 
  4361. !     fprintf (fid, "grestore\n" );
  4362. !     fprintf (fid, "showpage\n" );
  4363. !     fprintf (fid, "%%%%Trailer\n" );
  4364. !     fclose (fid);
  4365. ! 
  4366.     else
  4367. !     error ("saveimage: what happened to the image type?");
  4368.     endif
  4369.   
  4370.   endfunction
  4371. --- 36,45 ----
  4372.       error ("file name must be a string");
  4373.     endif
  4374.   
  4375. !   if (nargin < 5)
  4376. !     eval (sprintf ("%s_enc (filename, map, img);", img_form));
  4377.     else
  4378. !     eval (sprintf ("%s_enc (filename, map, img, opt);", img_form));
  4379.     endif
  4380.   
  4381.   endfunction
  4382. diff -cwr g:/project/C/octave-2.09.orig/scripts/miscellaneous/bug_report.m g:/project/C/octave-2.09/scripts/miscellaneous/bug_report.m
  4383. *** g:/project/C/octave-2.09.orig/scripts/miscellaneous/bug_report.m    Wed May 28 03:39:24 1997
  4384. --- g:/project/C/octave-2.09/scripts/miscellaneous/bug_report.m    Wed May 28 02:45:10 1997
  4385. ***************
  4386. *** 24,29 ****
  4387. --- 24,30 ----
  4388.   ## you are finished editing.
  4389.   
  4390.   ## Author: jwe
  4391. + ## Modified by Klaus Gebhardt, 1997
  4392.   
  4393.   function bug_report ()
  4394.   
  4395. ***************
  4396. *** 49,55 ****
  4397.         endif
  4398.       endif
  4399.   
  4400. !     cmd = strcat (OCTAVE_HOME, "/bin/octave-bug");
  4401.   
  4402.       if (length (subject) > 0)
  4403.         cmd = sprintf ("%s -s \"%s\"", cmd, subject);
  4404. --- 50,56 ----
  4405.         endif
  4406.       endif
  4407.   
  4408. !     cmd = strcat (OCTAVE_HOME, "/octave-bug");
  4409.   
  4410.       if (length (subject) > 0)
  4411.         cmd = sprintf ("%s -s \"%s\"", cmd, subject);
  4412. diff -cwr g:/project/C/octave-2.09.orig/scripts/miscellaneous/popen2.m g:/project/C/octave-2.09/scripts/miscellaneous/popen2.m
  4413. *** g:/project/C/octave-2.09.orig/scripts/miscellaneous/popen2.m    Mon Jul 15 23:20:20 1996
  4414. --- g:/project/C/octave-2.09/scripts/miscellaneous/popen2.m    Tue May 27 16:11:32 1997
  4415. ***************
  4416. *** 1,4 ****
  4417. ! ## Copyright (C) 1996 John W. Eaton
  4418.   ##
  4419.   ## This file is part of Octave.
  4420.   ##
  4421. --- 1,4 ----
  4422. ! ## Copyright (C) 1997 Klaus Gebhardt
  4423.   ##
  4424.   ## This file is part of Octave.
  4425.   ##
  4426. ***************
  4427. *** 21,28 ****
  4428.   ##
  4429.   ## Start a subprocess with two-way communication.  COMMAND specifies
  4430.   ## the name of the command to start.  ARGS is an array of strings
  4431. ! ## containing options for COMMAND.  IN and out are the file ids of the
  4432. ! ## input and streams for the subprocess, and PID is the process id of
  4433.   ## the subprocess, or -1 if COMMAND could not be executed.
  4434.   ##
  4435.   ## Example:
  4436. --- 21,28 ----
  4437.   ##
  4438.   ## Start a subprocess with two-way communication.  COMMAND specifies
  4439.   ## the name of the command to start.  ARGS is an array of strings
  4440. ! ## containing options for COMMAND.  IN and OUT are the file ids of the
  4441. ! ## input and output streams for the subprocess, and PID is the process id of
  4442.   ## the subprocess, or -1 if COMMAND could not be executed.
  4443.   ##
  4444.   ## Example:
  4445. ***************
  4446. *** 38,44 ****
  4447.   ##  endwhile
  4448.   ##  fclose (out);
  4449.   
  4450. ! ## Author: jwe
  4451.   
  4452.   function [in, out, pid] = popen2 (command, args)
  4453.   
  4454. --- 38,44 ----
  4455.   ##  endwhile
  4456.   ##  fclose (out);
  4457.   
  4458. ! ## Author: Klaus Gebhardt, 1997
  4459.   
  4460.   function [in, out, pid] = popen2 (command, args)
  4461.   
  4462. ***************
  4463. *** 48,98 ****
  4464.   
  4465.     if (nargin == 1 || nargin == 2)
  4466.   
  4467. -     if (nargin == 1)
  4468. -       args = "";
  4469. -     endif
  4470. - 
  4471.       if (isstr (command))
  4472.   
  4473. !       [stdin_pipe, stdin_status] = pipe ();
  4474. !       [stdout_pipe, stdout_status] = pipe ();
  4475.   
  4476. !       if (stdin_status == 0 && stdout_status == 0)
  4477.   
  4478. !     pid = fork ();
  4479.   
  4480. !     if (pid == 0)
  4481.   
  4482. !       fclose (stdin_pipe (2));
  4483. !       fclose (stdout_pipe (1));
  4484.   
  4485. !       dup2 (stdin_pipe (1), stdin);
  4486. !       fclose (stdin_pipe (1));
  4487.   
  4488. !       dup2 (stdout_pipe (2), stdout);
  4489. !       fclose (stdout_pipe (2));
  4490.   
  4491. !       if (exec (command, args) < 0)
  4492. !         error ("popen2: unable to start process `%s'", command);
  4493. !         exit (0);
  4494.         endif
  4495.   
  4496. !     elseif (pid)
  4497.   
  4498. !       fclose (stdin_pipe (1));
  4499. !       fclose (stdout_pipe (2));
  4500.   
  4501. -       if (fcntl (stdout_pipe (1), __F_SETFL__, __O_NONBLOCK__) < 0)
  4502. -         error ("popen2: error setting file mode");
  4503.         else
  4504. !         in = stdin_pipe (2);
  4505. !         out = stdout_pipe (1);
  4506.         endif
  4507.   
  4508. !     elseif (pid < 0)
  4509. !       error ("popen2: fork failed -- unable to create child process");
  4510.       endif
  4511. !       else
  4512.       error ("popen2: pipe creation failed");
  4513.         endif
  4514.       else
  4515. --- 48,114 ----
  4516.   
  4517.     if (nargin == 1 || nargin == 2)
  4518.   
  4519.       if (isstr (command))
  4520.   
  4521. !       [r_pipe,  r_status]  = _pipe ();
  4522. !       [w_pipe,  w_status]  = _pipe ();
  4523.   
  4524. !       if ((r_status != -1) && (w_status != -1))
  4525.   
  4526. !     r_parent_end = r_pipe(1);
  4527. !     r_child_end  = r_pipe(2);
  4528. !     _fcntl (r_parent_end, F_SETFD, 1);
  4529. !     r_org = _dup (1);
  4530.   
  4531. !     w_parent_end = w_pipe(2);
  4532. !     w_child_end  = w_pipe(1);
  4533. !     _fcntl (w_parent_end, F_SETFD, 1);
  4534. !     w_org = _dup (0);
  4535.   
  4536. !     if ((r_org != -1) && (w_org != -1))
  4537.   
  4538. !       _dup2 (r_child_end, 1);  _close (r_child_end);  r_child_end = -1;
  4539. !       _dup2 (w_child_end, 0);  _close (w_child_end);  w_child_end = -1;
  4540.   
  4541. !       if (nargin == 1)
  4542. !         pid = spawn ("nowait", command);
  4543. !       else
  4544. !         pid = spawn ("nowait", command, args);
  4545. !       endif
  4546.   
  4547. !       _dup2 (r_org, 1);  _close (r_org);
  4548. !       _dup2 (w_org, 0);  _close (w_org);
  4549. !     endif
  4550. ! 
  4551. !     if (r_child_end != -1)
  4552. !       _close (r_child_end);
  4553.       endif
  4554.   
  4555. !     if (w_child_end != -1)
  4556. !       _close (w_child_end);
  4557. !     endif
  4558.   
  4559. !     if (pid < 0)
  4560. !       _close (r_parent_end);
  4561. !       _close (w_parent_end);
  4562. !       error ("popen2: unable to start process `%s'", command);
  4563. !     else
  4564. !       out = _fdopen (r_parent_end, "r");
  4565. !       in  = _fdopen (w_parent_end, "w");
  4566. !     endif
  4567.   
  4568.         else
  4569. ! 
  4570. !     if (r_status != -1)
  4571. !       _close (r_pipe(1));
  4572. !       _close (r_pipe(2));
  4573.       endif
  4574.   
  4575. !     if (wr_status != -1)
  4576. !       _close (w_pipe(1));
  4577. !       _close (w_pipe(2));
  4578.       endif
  4579. ! 
  4580.       error ("popen2: pipe creation failed");
  4581.         endif
  4582.       else
  4583. diff -cwr g:/project/C/octave-2.09.orig/scripts/plot/sombrero.m g:/project/C/octave-2.09/scripts/plot/sombrero.m
  4584. *** g:/project/C/octave-2.09.orig/scripts/plot/sombrero.m    Wed May 28 03:37:34 1997
  4585. --- g:/project/C/octave-2.09/scripts/plot/sombrero.m    Fri Mar  7 05:02:46 1997
  4586. ***************
  4587. *** 22,28 ****
  4588.   ## Draw a `sombrero' in three dimensions using n grid lines.  The
  4589.   ## function plotted is
  4590.   ##
  4591. ! ##   z = sin (sqrt (x^2 + y^2)) / (sqrt (x^2 + y^2))
  4592.   
  4593.   ## Author: jwe
  4594.   
  4595. --- 22,28 ----
  4596.   ## Draw a `sombrero' in three dimensions using n grid lines.  The
  4597.   ## function plotted is
  4598.   ##
  4599. ! ##   z = sin (x^2 + y^2) / (sqrt (x^2 + y^2))
  4600.   
  4601.   ## Author: jwe
  4602.   
  4603. diff -cwr g:/project/C/octave-2.09.orig/scripts/startup/octaverc g:/project/C/octave-2.09/scripts/startup/octaverc
  4604. *** g:/project/C/octave-2.09.orig/scripts/startup/octaverc    Wed Jul 24 19:05:42 1996
  4605. --- g:/project/C/octave-2.09/scripts/startup/octaverc    Mon May 26 15:54:04 1997
  4606. ***************
  4607. *** 2,4 ****
  4608. --- 2,33 ----
  4609.   ##
  4610.   ## This file should contain any commands that should be executed each
  4611.   ## time Octave starts for every user at this site.
  4612. + 
  4613. + ## System-wide startup file
  4614. + ## Octave 2.06 for OS/2
  4615. + ## (c) 1996, Klaus Gebhardt
  4616. + 
  4617. + PS1 = "octave:\\#>"
  4618. + 
  4619. + EDITOR = "e";
  4620. + 
  4621. + if length(getenv("OCTAVE_HOME"))
  4622. +   LOADPATH = sprintf("%s/scripts//", getenv("OCTAVE_HOME"));
  4623. +   INFO_FILE = sprintf("%s/doc/octave", getenv("OCTAVE_HOME"));
  4624. + endif
  4625. + 
  4626. + if length(file_in_path(getenv("PATH"),"less.exe"))
  4627. +   PAGER = sprintf("%s -ce",file_in_path(getenv("PATH"),"less.exe"));
  4628. + else
  4629. +   PAGER = "more";
  4630. + endif
  4631. + 
  4632. + if length(getenv("GNUPLOT"))
  4633. +   gnuplot_binary = sprintf ("%s/gnuplot.exe", getenv("GNUPLOT"));
  4634. + else
  4635. +   gnuplot_binary = "gnuplot";
  4636. + endif
  4637. + 
  4638. + implicit_str_to_num_ok     = 1;
  4639. + ok_to_lose_imaginary_part  = 1;
  4640. + ignore_function_time_stamp = 1;
  4641. diff -cwr g:/project/C/octave-2.09.orig/doc/conf.tex g:/project/C/octave-2.09/doc/conf.tex
  4642. *** g:/project/C/octave-2.09.orig/doc/conf.tex    Wed Aug 13 12:39:44 1997
  4643. --- g:/project/C/octave-2.09/doc/conf.tex    Wed Aug 13 12:27:12 1997
  4644. ***************
  4645. *** 3,7 ****
  4646.   @c For copying conditions, see the file gpl.tex.
  4647.   
  4648.   @set VERSION 2.0.5
  4649. ! @set OCTAVEHOME /usr/local
  4650. ! @set TARGETHOSTTYPE i586-pc-linux-gnu
  4651. --- 3,7 ----
  4652.   @c For copying conditions, see the file gpl.tex.
  4653.   
  4654.   @set VERSION 2.0.5
  4655. ! @set OCTAVEHOME 
  4656. ! @set TARGETHOSTTYPE i486-OS/2
  4657. diff -cwr g:/project/C/octave-2.09.orig/doc/faq/oct-faq.tex g:/project/C/octave-2.09/doc/faq/oct-faq.tex
  4658. *** g:/project/C/octave-2.09.orig/doc/faq/oct-faq.tex    Wed Aug 13 12:39:46 1997
  4659. --- g:/project/C/octave-2.09/doc/faq/oct-faq.tex    Wed Aug 13 12:49:08 1997
  4660. ***************
  4661. *** 1,3 ****
  4662. --- 1,4 ----
  4663. + % Modified by Klaus Gebhardt, 1997
  4664.   \input texinfo.tex      @c -*-texinfo-*-
  4665.   
  4666.   @setfilename oct-faq.
  4667. ***************
  4668. *** 19,24 ****
  4669. --- 20,33 ----
  4670.   @top
  4671.   @unnumbered Preface
  4672.   @cindex FAQ for Octave, latest version
  4673. + 
  4674. + @macro email{text}
  4675. + (\text\)
  4676. + @end macro
  4677. + 
  4678. + @macro url{text}
  4679. + (\text\)
  4680. + @end macro
  4681.   @end ifinfo
  4682.   
  4683.   This is a list of frequently asked questions (FAQ) for Octave users.
  4684. diff -cwr g:/project/C/octave-2.09.orig/doc/interpreter/control.tex g:/project/C/octave-2.09/doc/interpreter/control.tex
  4685. *** g:/project/C/octave-2.09.orig/doc/interpreter/control.tex    Wed Aug 13 12:39:50 1997
  4686. --- g:/project/C/octave-2.09/doc/interpreter/control.tex    Wed Aug 13 12:27:36 1997
  4687. ***************
  4688. *** 369,374 ****
  4689. --- 369,375 ----
  4690.   @tex
  4691.   $AXA^T - X + B B^T = 0$ or $A^TXA - X + B^TB = 0$,
  4692.   @end tex
  4693. + @end iftex
  4694.   @ifinfo
  4695.   @code{a x a' - x + b b' = 0} or @code{a' x a - x + b' b = 0},
  4696.   @end ifinfo
  4697. diff -cwr g:/project/C/octave-2.09.orig/doc/interpreter/octave.tex g:/project/C/octave-2.09/doc/interpreter/octave.tex
  4698. *** g:/project/C/octave-2.09.orig/doc/interpreter/octave.tex    Wed Aug 13 12:40:04 1997
  4699. --- g:/project/C/octave-2.09/doc/interpreter/octave.tex    Wed Aug 13 12:48:28 1997
  4700. ***************
  4701. *** 1,6 ****
  4702. --- 1,7 ----
  4703.   % Copyright (C) 1996, 1997 John W. Eaton
  4704.   % This is part of the Octave manual.
  4705.   % For copying conditions, see the file gpl.tex.
  4706. + % Modified by Klaus Gebhardt, 1997
  4707.   
  4708.   \input texinfo
  4709.   @setfilename octave.
  4710. ***************
  4711. *** 11,16 ****
  4712. --- 12,25 ----
  4713.   * Octave: (octave).     Interactive language for numerical computations.
  4714.   END-INFO-DIR-ENTRY
  4715.   @end format
  4716. + 
  4717. + @macro email{text}
  4718. + (\text\)
  4719. + @end macro
  4720. + 
  4721. + @macro url{text}
  4722. + (\text\)
  4723. + @end macro
  4724.   @end ifinfo
  4725.   
  4726.   @c Settings for printing on 8-1/2 by 11 inch paper:
  4727. ***************
  4728. *** 36,42 ****
  4729.   @c This file doesn't include a chapter, so it must not be included
  4730.   @c if you want to run the Emacs function texinfo-multiple-files-update.
  4731.   
  4732. ! @include conf.tex
  4733.   
  4734.   @settitle GNU Octave
  4735.   
  4736. --- 45,51 ----
  4737.   @c This file doesn't include a chapter, so it must not be included
  4738.   @c if you want to run the Emacs function texinfo-multiple-files-update.
  4739.   
  4740. ! @include ../conf.tex
  4741.   
  4742.   @settitle GNU Octave
  4743.   
  4744. diff -cwr g:/project/C/octave-2.09.orig/doc/interpreter/poly.tex g:/project/C/octave-2.09/doc/interpreter/poly.tex
  4745. *** g:/project/C/octave-2.09.orig/doc/interpreter/poly.tex    Wed Aug 13 12:40:06 1997
  4746. --- g:/project/C/octave-2.09/doc/interpreter/poly.tex    Wed Aug 13 12:27:52 1997
  4747. ***************
  4748. *** 8,22 ****
  4749.   In Octave, a polynomial is represented by its coefficients (arranged
  4750.   in descending order).  For example, a vector
  4751.   @iftex
  4752.   @end iftex
  4753.   @ifinfo
  4754. !  $c$
  4755.   @end ifinfo
  4756.   of length
  4757.   @iftex
  4758.   @tex
  4759.    $N+1$
  4760.   @end tex
  4761.   @ifinfo
  4762.    @var{N+1}
  4763.   @end ifinfo
  4764. --- 8,24 ----
  4765.   In Octave, a polynomial is represented by its coefficients (arranged
  4766.   in descending order).  For example, a vector
  4767.   @iftex
  4768. +  $c$
  4769.   @end iftex
  4770.   @ifinfo
  4771. !  @var{c}
  4772.   @end ifinfo
  4773.   of length
  4774.   @iftex
  4775.   @tex
  4776.    $N+1$
  4777.   @end tex
  4778. + @end iftex
  4779.   @ifinfo
  4780.    @var{N+1}
  4781.   @end ifinfo
  4782. diff -cwr g:/project/C/octave-2.09.orig/doc/liboctave/array.tex g:/project/C/octave-2.09/doc/liboctave/array.tex
  4783. *** g:/project/C/octave-2.09.orig/doc/liboctave/array.tex    Wed Aug 13 12:40:16 1997
  4784. --- g:/project/C/octave-2.09/doc/liboctave/array.tex    Wed Aug 13 12:28:14 1997
  4785. ***************
  4786. *** 1,4 ****
  4787. ! @node Arrays, Matrix and Vector @var{Operations}, Introduction, Top
  4788.   @chapter Arrays
  4789.   @cindex arrays
  4790.   
  4791. --- 1,4 ----
  4792. ! @node Arrays, Matrix and Vector Operations, Introduction, Top
  4793.   @chapter Arrays
  4794.   @cindex arrays
  4795.   
  4796. diff -cwr g:/project/C/octave-2.09.orig/doc/liboctave/factor.tex g:/project/C/octave-2.09/doc/liboctave/factor.tex
  4797. *** g:/project/C/octave-2.09.orig/doc/liboctave/factor.tex    Wed Aug 13 12:40:20 1997
  4798. --- g:/project/C/octave-2.09/doc/liboctave/factor.tex    Wed Aug 13 12:28:18 1997
  4799. ***************
  4800. *** 1,4 ****
  4801. ! @node Matrix Factorizations, Ranges, Matrix and Vector @var{Operations}, Top
  4802.   @chapter Matrix Factorizations
  4803.   @cindex matrix factorizations
  4804.   @cindex factorizations
  4805. --- 1,4 ----
  4806. ! @node Matrix Factorizations, Ranges, Matrix and Vector Operations, Top
  4807.   @chapter Matrix Factorizations
  4808.   @cindex matrix factorizations
  4809.   @cindex factorizations
  4810. diff -cwr g:/project/C/octave-2.09.orig/doc/liboctave/gpl.tex g:/project/C/octave-2.09/doc/liboctave/gpl.tex
  4811. *** g:/project/C/octave-2.09.orig/doc/liboctave/gpl.tex    Wed Aug 13 12:40:20 1997
  4812. --- g:/project/C/octave-2.09/doc/liboctave/gpl.tex    Wed Aug 13 12:28:20 1997
  4813. ***************
  4814. *** 1,4 ****
  4815. ! @c Copyright (C) 1996, 1997 John W. Eaton
  4816.   @c This is part of the Octave manual.
  4817.   @c For copying conditions, see the file gpl.tex.
  4818.   
  4819. --- 1,4 ----
  4820. ! @c Copyright (C) 1996 John W. Eaton
  4821.   @c This is part of the Octave manual.
  4822.   @c For copying conditions, see the file gpl.tex.
  4823.   
  4824. diff -cwr g:/project/C/octave-2.09.orig/doc/liboctave/liboct.tex g:/project/C/octave-2.09/doc/liboctave/liboct.tex
  4825. *** g:/project/C/octave-2.09.orig/doc/liboctave/liboct.tex    Wed Aug 13 12:40:22 1997
  4826. --- g:/project/C/octave-2.09/doc/liboctave/liboct.tex    Wed Aug 13 12:49:14 1997
  4827. ***************
  4828. *** 1,6 ****
  4829. --- 1,7 ----
  4830.   % Copyright (C) 1996, 1997 John W. Eaton
  4831.   % This is part of the Octave manual.
  4832.   % For copying conditions, see the file gpl.tex.
  4833. + % Modified by Klaus Gebhardt, 1997
  4834.   
  4835.   \input texinfo  @c -*-texinfo-*-
  4836.   @setfilename liboct.
  4837. ***************
  4838. *** 28,39 ****
  4839.   @c This file doesn't include a chapter, so it must not be included
  4840.   @c if you want to run the Emacs function texinfo-multiple-files-update.
  4841.   
  4842. ! @include conf.tex
  4843.   
  4844.   @settitle Octave C++ Classes
  4845.   
  4846.   @ifinfo
  4847.   
  4848.   Copyright (C) 1996, 1997 John W. Eaton.
  4849.   
  4850.   Permission is granted to make and distribute verbatim copies of
  4851. --- 29,48 ----
  4852.   @c This file doesn't include a chapter, so it must not be included
  4853.   @c if you want to run the Emacs function texinfo-multiple-files-update.
  4854.   
  4855. ! @include ../conf.tex
  4856.   
  4857.   @settitle Octave C++ Classes
  4858.   
  4859.   @ifinfo
  4860.   
  4861. + @macro email{text}
  4862. + (\text\)
  4863. + @end macro
  4864. + 
  4865. + @macro url{text}
  4866. + (\text\)
  4867. + @end macro
  4868. + 
  4869.   Copyright (C) 1996, 1997 John W. Eaton.
  4870.   
  4871.   Permission is granted to make and distribute verbatim copies of
  4872. ***************
  4873. *** 98,104 ****
  4874.   * Copying::                     
  4875.   * Introduction::                
  4876.   * Arrays::                      
  4877. ! * Matrix and Vector @var{Operations}::  
  4878.   * Matrix Factorizations::       
  4879.   * Ranges::                      
  4880.   * Nonlinear Functions::         
  4881. --- 107,113 ----
  4882.   * Copying::                     
  4883.   * Introduction::                
  4884.   * Arrays::                      
  4885. ! * Matrix and Vector Operations::  
  4886.   * Matrix Factorizations::       
  4887.   * Ranges::                      
  4888.   * Nonlinear Functions::         
  4889. diff -cwr g:/project/C/octave-2.09.orig/doc/liboctave/matvec.tex g:/project/C/octave-2.09/doc/liboctave/matvec.tex
  4890. *** g:/project/C/octave-2.09.orig/doc/liboctave/matvec.tex    Wed Aug 13 12:40:22 1997
  4891. --- g:/project/C/octave-2.09/doc/liboctave/matvec.tex    Wed Aug 13 12:28:22 1997
  4892. ***************
  4893. *** 107,113 ****
  4894.   
  4895.   @c ------------------------------------------------------------------------
  4896.   
  4897. ! @node Matrix and Vector @var{Operations}, Matrix Factorizations, Arrays, Top
  4898.   @chapter Matrix and Vector Operations
  4899.   @cindex matrix manipulations
  4900.   @cindex vector manipulations
  4901. --- 107,113 ----
  4902.   
  4903.   @c ------------------------------------------------------------------------
  4904.   
  4905. ! @node Matrix and Vector Operations, Matrix Factorizations, Arrays, Top
  4906.   @chapter Matrix and Vector Operations
  4907.   @cindex matrix manipulations
  4908.   @cindex vector manipulations
  4909.